more steroids

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

diff --git a/maint/synopsis-extractor b/maint/synopsis-extractor
index 9390373..f23a999 100755 (executable)
--- a/maint/synopsis-extractor
+++ b/maint/synopsis-extractor
@@ -66,10 +66,10 @@ sub create_or_update_test {
 find(sub {
     return unless $_=~/pm$/;
     create_or_update_test(
-        create_test_string
+        (create_test_string
         normalize_indent
         extract_synopsis
-        slurp_file $File::Find::name,
+        slurp_file $File::Find::name),
         create_test_path_from_lib($_),
     );
 }, File::Spec->catfile($Bin, '..', 'lib'));