From: John Napiorkowski <jjn1056@yahoo.com>
Date: Fri, 24 Sep 2010 01:13:49 +0000 (-0400)
Subject: I am synopsis extractor!
X-Git-Tag: release_0.009004~31
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77198646fbfd6a3ca685816a96f27e031485a890;hp=8d36d8cbdd5d584f36965479eca0bd09543a0950;p=catagits%2FHTML-Zoom.git

I am synopsis extractor!
---

diff --git a/maint/synopsis-extractor b/maint/synopsis-extractor
index fb67966..14c5e2f 100755
--- a/maint/synopsis-extractor
+++ b/maint/synopsis-extractor
@@ -24,7 +24,7 @@ sub extract_synopsis {
         my $extracted = $1;
         $extracted=~s/^\S.+?$//m; # wipe out non code lines in pod
         my $begin_end = qr[begin|end]x;
-        $extracted=~s/\n^=$begin_end testinfo\n\n//smg; # remove
+        $extracted=~s/\n^=$begin_end testinfo\n\n//smg; # remove test block
 
         return $extracted;
     } else {
@@ -67,9 +67,11 @@ sub create_or_update_test_file {
     print $syn_test $synopsis_string;
 }
 
-find(sub {
+find sub {
+
     my $target_path =
         create_test_path_from_lib $_;
+
     my $synopsis_string =
         create_test_string
         normalize_indent
@@ -80,6 +82,6 @@ find(sub {
         $target_path,
         $synopsis_string,
 
-    }, File::Spec->catfile($Bin, '..', 'lib'));
+}, File::Spec->catfile($Bin, '..', 'lib');