From: Andreas J. Koenig Date: Sun, 18 Mar 2007 09:26:58 +0000 (+0100) Subject: 29044 broke Fatal.pm X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=594e23a51d75ce41241c949e9daf838235a12bf7;p=p5sagit%2Fp5-mst-13.2.git 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 --- diff --git a/lib/Fatal.pm b/lib/Fatal.pm index ad2f7f4..69866d9 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\""; diff --git a/lib/Fatal.t b/lib/Fatal.t index f00b876..cc7d1f2 100755 --- a/lib/Fatal.t +++ b/lib/Fatal.t @@ -7,7 +7,7 @@ BEGIN { } use strict; -use Fatal qw(open close :void opendir); +use Fatal qw(open close :void opendir sin); my $i = 1; eval { open FOO, '