Hello,
I just built URI.pm version 1.21 under Windows NT
with Perl 5.8.0, and found that it failed tests 2
and 4 in old-base.t. URI.pm is OK, the bug is in
the test script. I've installed Perl on a network
drive using UNC paths (starting with \\). Some code
in old-base.t tries to make sure that all paths in
@INC are absolute, but it doesn't recognize UNC paths,
so it tries to prepend $pwd. I'm including a patch.
For a more general solution you might consider using
File::Spec->file_name_is_absolute() and/or
File::Spec->rel2abs(). (But I found those methods
think that "\foo" is absolute, which doesn't seem
quite right without a drive letter.)
Thanks for your work on this useful module.
--
Warren Jones
Fluke Corporation
--------------------------- snip snip ---------------------------
Index: old-base.t
===================================================================
RCS file: /usr0/sweng/src/active/CVS.repo/perlmod/uri/t/old-base.t,v
retrieving revision 1.1.1.2
retrieving revision 1.2
diff -u -r1.1.1.2 -r1.2
--- old-base.t 2002/08/06 21:02:22 1.1.1.2
+++ old-base.t 2002/08/08 18:21:44 1.2
@@ -34,7 +34,8 @@
for (@INC) {
my $x = $_;
$x = VMS::Filespec::unixpath($x) if $^O eq 'VMS';
- next if $x =~ m|^/| or $^O =~ /os2|mswin32/i and $x =~ m|^\w:[\\/]|;
+ next if $x =~ m|^/| or $^O =~ /os2|mswin32/i
+ and $x =~ m#^(\w:[\\/]|[\\/]{2})#;
print "Turn lib path $x into $pwd/$x\n";
$_ = "$pwd/$x";
