This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Add comment
authorKarl Williamson <public@khwilliamson.com>
Sat, 28 Jan 2012 22:25:47 +0000 (15:25 -0700)
committerKarl Williamson <public@khwilliamson.com>
Tue, 31 Jan 2012 02:28:11 +0000 (19:28 -0700)
t/porting/podcheck.t

index 6e77b78..f0d5811 100644 (file)
@@ -1276,6 +1276,7 @@ sub is_pod_file {
                
     my $filename = $File::Find::name;
 
+    # $filename is relative, like './path'.  Strip that initial part away.
     # Assumes that the path separator is exactly one character.
     $filename =~ s/^\..//;