This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
26c1569
)
podcheck.t: Add comment
author
Karl Williamson
<public@khwilliamson.com>
Sat, 28 Jan 2012 22:25:47 +0000
(15:25 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Tue, 31 Jan 2012 02:28:11 +0000
(19:28 -0700)
t/porting/podcheck.t
patch
|
blob
|
blame
|
history
diff --git
a/t/porting/podcheck.t
b/t/porting/podcheck.t
index
6e77b78
..
f0d5811
100644
(file)
--- a/
t/porting/podcheck.t
+++ b/
t/porting/podcheck.t
@@
-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/^\..//;