| … | |
… | |
| 88 | or die "$autodir/$ix: $!"; |
88 | or die "$autodir/$ix: $!"; |
| 89 | |
89 | |
| 90 | my $package; |
90 | my $package; |
| 91 | |
91 | |
| 92 | while (<$fh>) { |
92 | while (<$fh>) { |
| 93 | if (/^\s*sub\s+([^[:space:];]+)\s*;?\s*$/) { |
93 | if (/^\s*sub\s+ ([^[:space:];]+) \s* (?:\([^)]*\))? \s*;?\s*$/x) { |
| 94 | my $al = "auto/$package/$1.al"; |
94 | my $al = "auto/$package/$1.al"; |
| 95 | my $inc = find_inc $al; |
95 | my $inc = find_inc $al; |
| 96 | |
96 | |
| 97 | defined $inc or die "$al: autoload file not found, but should be there.\n"; |
97 | defined $inc or die "$al: autoload file not found, but should be there.\n"; |
| 98 | |
98 | |
