X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Fsynopsis-extractor;h=d216b31b111cd17de308ffc94eb6adca83fd511a;hb=4c8ee49680f43591d3a2b518fa4fb94ba9f80c16;hp=14c5e2f5af05384934f0e0247a0ca06307aa806f;hpb=77198646fbfd6a3ca685816a96f27e031485a890;p=catagits%2FHTML-Zoom.git

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'));