… | |
… | |
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*;?\s*$/x) { |
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 | |