SOURCES: pldcpan.pl - one more warning

[radek]

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