From: John Napiorkowski <jjn1056@yahoo.com>
Date: Fri, 24 Sep 2010 01:15:57 +0000 (-0400)
Subject: ok now I am moving things around for no good reason...
X-Git-Tag: release_0.009004~30
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTML-Zoom.git;a=commitdiff_plain;h=4c8ee49680f43591d3a2b518fa4fb94ba9f80c16

ok now I am moving things around for no good reason...
---

diff --git a/maint/synopsis-extractor b/maint/synopsis-extractor
index 14c5e2f..d216b31 100755
--- a/maint/synopsis-extractor
+++ b/maint/synopsis-extractor
@@ -67,21 +67,18 @@ sub create_or_update_test_file {
     print $syn_test $synopsis_string;
 }
 
-find sub {
-
+sub wanted {
     my $target_path =
         create_test_path_from_lib $_;
-
     my $synopsis_string =
         create_test_string
         normalize_indent
         extract_synopsis
         slurp_file $File::Find::name;
-
     create_or_update_test_file
         $target_path,
         $synopsis_string,
+}
 
-}, File::Spec->catfile($Bin, '..', 'lib');
-
+find(\&wanted, File::Spec->catfile($Bin, '..', 'lib'));