Author: radek Date: Fri Apr 7 10:01:42 2006 GMT
Module: SOURCES Tag: HEAD
---- Log message:
- one more warning
---- Files affected:
SOURCES:
pldcpan.pl (1.37 -> 1.38)
---- Diffs:
================================================================
Index: SOURCES/pldcpan.pl
diff -u SOURCES/pldcpan.pl:1.37 SOURCES/pldcpan.pl:1.38
--- SOURCES/pldcpan.pl:1.37 Fri Apr 7 11:55:37 2006
+++ SOURCES/pldcpan.pl Fri Apr 7 12:01:37 2006
@@ -209,7 +209,11 @@
my $pod_file;
my $mfile = @{ $info->{parts} }[-1];
- my $it = File::Iterator->new(
+ if (!defined $mfile) {
+ warn " .. unable to search for \$pod_file without parts\n";
+ return $info->{_tests}->{find_pod_file} = 0;
+ }
+ my $it = File::Iterator->new(
DIR => $info->{dir},
RECURSE => 1,
FILTER => sub { $_[0] =~ m#(?:^|/)\Q$mfile\E\.(?:pod|pm)$# }
@@ -239,8 +243,8 @@
return $info->{_tests}->{find_pod_file} = 0;
}
- $info->{_podtree} = $tree;
- $info->{pod_file} = $pod_file;
+ $info->{_podtree} = $tree;
+ $info->{pod_file} = $pod_file;
$info->{_tests}->{find_pod_file} = 1;
}
================================================================
---- CVS-web:
http://cvs.pld-linux.org/SOURCES/pldcpan.pl?r1=1.37&r2=1.38&f=u
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
