more steroids

[catagits/HTML-Zoom.git] / maint / synopsis-extractor

diff --git a/maint/synopsis-extractor b/maint/synopsis-extractor
index ebaf001..f23a999 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_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'));