more steroids
John Napiorkowski [Fri, 24 Sep 2010 00:41:49 +0000 (20:41 -0400)]
maint/synopsis-extractor

index 9390373..f23a999 100755 (executable)
@@ -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'));