From: Karl Williamson <public@khwilliamson.com>
Date: Thu, 26 May 2011 18:48:05 +0000 (-0600)
Subject: podcheck.t: Add comment, explicit return
X-Git-Tag: accepted/trunk/20130322.191538~4041
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c1dcaaab2adb87f419a2e44e36f9510725a1a69d;p=platform%2Fupstream%2Fperl.git

podcheck.t: Add comment, explicit return
---

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index fde9a4b..2a7c87b 100644
--- 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.