--- cvsroot/App-Staticperl/mkbundle	2010/12/08 09:12:23	1.7
+++ cvsroot/App-Staticperl/mkbundle	2010/12/08 09:13:55	1.8
@@ -90,7 +90,7 @@
    my $package;
 
    while (<$fh>) {
-      if (/^\s*sub\s+ ([^[:space:];]+) \s*\(?:\([^)]*\))? \s*;?\s*$/x) {
+      if (/^\s*sub\s+ ([^[:space:];]+) \s* (?:\([^)]*\))? \s*;?\s*$/x) {
          my $al = "auto/$package/$1.al";
          my $inc = find_inc $al;