From 594e23a51d75ce41241c949e9daf838235a12bf7 Mon Sep 17 00:00:00 2001 From: "Andreas J. Koenig" Date: Sun, 18 Mar 2007 10:26:58 +0100 Subject: [PATCH] 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 --- lib/Fatal.pm | 2 +- lib/Fatal.t | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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, '