From: John Napiorkowski <jjn1056@yahoo.com>
Date: Fri, 24 Sep 2010 00:16:07 +0000 (-0400)
Subject: synopsis extractor on steroids
X-Git-Tag: release_0.009004~34
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTML-Zoom.git;a=commitdiff_plain;h=ef48fc36a1f6dbf53867abf16e478fffe7889967

synopsis extractor on steroids
---

diff --git a/maint/synopsis-extractor b/maint/synopsis-extractor
index ebaf001..9390373 100755
--- a/maint/synopsis-extractor
+++ b/maint/synopsis-extractor
@@ -65,14 +65,11 @@ sub create_or_update_test {
 
 find(sub {
     return unless $_=~/pm$/;
-    my $test_string =
+    create_or_update_test(
         create_test_string
         normalize_indent
         extract_synopsis
-        slurp_file $File::Find::name;
-
-    create_or_update_test(
-        $test_string,
+        slurp_file $File::Find::name,
         create_test_path_from_lib($_),
     );
 }, File::Spec->catfile($Bin, '..', 'lib'));