diff options
| author | Andreas J. Koenig <andreas.koenig.7os6VVqR@franz.ak.mind.de> | 2007-03-18 10:26:58 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-03-18 19:44:42 +0000 |
| commit | 594e23a51d75ce41241c949e9daf838235a12bf7 (patch) | |
| tree | c871df37feeed651f95a9cb809bb1999ec8cbc9c /lib/Fatal.pm | |
| parent | c586124f72c3990bdacc564215636607a575c10f (diff) | |
| download | perl-594e23a51d75ce41241c949e9daf838235a12bf7.tar.gz | |
29044 broke Fatal.pm
Message-ID: <87slc37y99.fsf@k75.linux.bogus>
Date: Sun, 18 Mar 2007 09:26:58 +0100
p4raw-id: //depot/perl@30614
Diffstat (limited to 'lib/Fatal.pm')
| -rw-r--r-- | lib/Fatal.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Fatal.pm b/lib/Fatal.pm index ad2f7f40a8..69866d9f66 100644 --- a/lib/Fatal.pm +++ b/lib/Fatal.pm @@ -38,7 +38,7 @@ sub fill_protos { $n++; push(@out1,[$n,@out]) if $seen_semi; push(@out, $1 . "{\$_[$n]}"), next if $proto =~ s/^\s*\\([\@%\$\&])//; - push(@out, "\$_[$n]"), next if $proto =~ s/^\s*([*\$&])//; + push(@out, "\$_[$n]"), next if $proto =~ s/^\s*([_*\$&])//; push(@out, "\@_[$n..\$#_]"), last if $proto =~ s/^\s*(;\s*)?\@//; $seen_semi = 1, $n--, next if $proto =~ s/^\s*;//; # XXXX ???? die "Unknown prototype letters: \"$proto\""; |