projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
763df15
)
podcheck.t: Add comment, explicit return
author
Karl Williamson
<public@khwilliamson.com>
Thu, 26 May 2011 18:48:05 +0000
(12:48 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Thu, 26 May 2011 18:49:57 +0000
(12:49 -0600)
t/porting/podcheck.t
patch
|
blob
|
history
diff --git
a/t/porting/podcheck.t
b/t/porting/podcheck.t
index
fde9a4b
..
2a7c87b
100644
(file)
--- a/
t/porting/podcheck.t
+++ b/
t/porting/podcheck.t
@@
-939,6
+939,8
@@
sub extract_pod { # Extracts just the pod from a file
my $digest = Digest->new($digest_type);
sub is_pod_file {
+ # If $_ is a pod file, add it to the lists and do other prep work.
+
if (-d $_) {
# Don't look at files in directories that are for tests, nor those
# beginning with a dot
@@
-1037,6
+1039,8
@@
sub is_pod_file {
}
}
}
+
+ return;
} # End of is_pod_file()
# Start of real code that isn't processing the command line.