synopsis extractor on steroids

diff --git a/maint/synopsis-extractor b/maint/synopsis-extractor
index ebaf001..9390373 100755 (executable)
--- 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'));