| Subject: | warning in dir::subsumes |
The patch fixes the warning caused by:
perl -w -MPath::Class -le 'print dir($ARGV[0])->subsumes(dir($ARGV[1]))' /foo/hate/fnord/sdf /foo/hate/fnord
Only in Path-Class-clkao: Build
Only in Path-Class-clkao: _build
Only in Path-Class-clkao: blib
diff -rpu Path-Class-0.13/lib/Path/Class/Dir.pm Path-Class-clkao/lib/Path/Class/Dir.pm
--- Path-Class-0.13/lib/Path/Class/Dir.pm 2005-08-23 04:38:25.000000000 +0100
+++ Path-Class-clkao/lib/Path/Class/Dir.pm 2005-11-12 16:07:13.000000000 +0000
@@ -205,6 +205,7 @@ sub subsumes {
my $i = 0;
while ($i <= $#{ $self->{dirs} }) {
+ return 0 unless exists $other->{dirs}[$i];
return 0 if $self->{dirs}[$i] ne $other->{dirs}[$i];
$i++;
}
Only in Path-Class-clkao/lib/Path/Class: Dir.pm~