diff options
Diffstat (limited to 'perl.req')
-rwxr-xr-x | perl.req | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -44,10 +44,10 @@ if ("@ARGV") { process_file($_); } } else { - + # notice we are passed a list of filenames NOT as common in unix the # contents of the file. - + foreach (<>) { chomp $_; process_file($_) if -f $_; @@ -107,7 +107,7 @@ sub process_file { if ( (m/^=(over)/) .. (m/^=(back)/) ) { next; } - + # skip the data section if (m/^__(DATA|END)__$/) { last; @@ -198,7 +198,7 @@ sub process_file { $module =~ s/\.pm$//; - # some perl programmers write 'require URI/URL;' when + # some perl programmers write 'require URI/URL;' when # they mean 'require URI::URL;' $module =~ s/\//::/; |