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