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 (file)
--- 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 (executable)
--- 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, '<lkjqweriuapofukndajsdlfjnvcvn' };