SOURCES: pldcpan.pl - don't search for pod in ./t/

[radek]

Author: radek                        Date: Thu Jul 27 11:02:46 2006 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- don't search for pod in ./t/

---- Files affected:
SOURCES:
   pldcpan.pl (1.38 -> 1.39) 

---- Diffs:

================================================================
Index: SOURCES/pldcpan.pl
diff -u SOURCES/pldcpan.pl:1.38 SOURCES/pldcpan.pl:1.39
--- SOURCES/pldcpan.pl:1.38	Fri Apr  7 12:01:37 2006
+++ SOURCES/pldcpan.pl	Thu Jul 27 13:02:41 2006
@@ -216,12 +216,13 @@
 	my $it = File::Iterator->new(
 		DIR     => $info->{dir},
 		RECURSE => 1,
-		FILTER  => sub { $_[0] =~ m#(?:^|/)\Q$mfile\E\.(?:pod|pm)$# }
+		FILTER =>
+		  sub { $_[0] =~ m#(?:^|/)\Q$mfile\E\.(?:pod|pm)$# && $_[0] !~ m#/t/# }
 	);
 	my ($pm, $pod);
-	while (local $_ = $it->next()) {
-		$pod = $_ if /\.pod$/;
-		$pm  = $_ if /\.pm$/;
+	while (my $f = $it->next()) {
+		$pod = $f if $f =~ /\.pod$/;
+		$pm  = $f if $f =~ /\.pm$/;
 	}
 	$pod_file = $pod ? $pod : $pm;
 	if (   !$pod_file
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/SOURCES/pldcpan.pl?r1=1.38&r2=1.39&f=u