require VMS::Filespec if $Is_VMS;
use vars qw($VERSION);
-$VERSION = '0.07';
+$VERSION = '0.08_01';
sub _is_prefix {
my ($self, $path, $prefix) = @_;
$prefix = VMS::Filespec::unixify($prefix);
$path = VMS::Filespec::unixify($path);
}
- $prefix =~ m!/+! && $prefix =~ s!/+!/!g;
- $path =~ m!/+! && $path =~ s!/+!/!g;
+
+ # Sloppy Unix path normalization.
+ $prefix =~ s{/+}{/}g;
+ $path =~ s{/+}{/}g;
return 1 if substr($path, 0, length($prefix)) eq $prefix;