diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-01-28 15:25:47 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-01-30 19:28:11 -0700 |
commit | 3673acb0ce592432c7547e7ee9d7e5667a2f7bb2 (patch) | |
tree | d17f694f585ad8c72911fd374ed01558b8db8650 /t | |
parent | 26c1569fc8d4020c8e0ce3de803eea3567dd781b (diff) | |
download | perl-3673acb0ce592432c7547e7ee9d7e5667a2f7bb2.tar.gz |
podcheck.t: Add comment
Diffstat (limited to 't')
-rw-r--r-- | t/porting/podcheck.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index 6e77b78635..f0d5811a0c 100644 --- 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/^\..//; |