podcheck.t: Add comment

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/^\..//;