Change 30614 by [EMAIL PROTECTED] on 2007/03/18 19:44:42
Subject: 29044 broke Fatal.pm
From: [EMAIL PROTECTED] (Andreas J. Koenig)
Message-ID: <[EMAIL PROTECTED]>
Date: Sun, 18 Mar 2007 09:26:58 +0100
Affected files ...
... //depot/perl/lib/Fatal.pm#14 edit
... //depot/perl/lib/Fatal.t#2 edit
Differences ...
==== //depot/perl/lib/Fatal.pm#14 (text) ====
Index: perl/lib/Fatal.pm
--- perl/lib/Fatal.pm#13~29507~ 2006-12-11 02:32:47.000000000 -0800
+++ perl/lib/Fatal.pm 2007-03-18 12:44:42.000000000 -0700
@@ -38,7 +38,7 @@
$n++;
push(@out1,[$n,@out]) if $seen_semi;
push(@out, $1 . "{\$_[$n]}"), next if $proto =~ s/^\s*\\([EMAIL
PROTECTED]&])//;
- push(@out, "\$_[$n]"), next if $proto =~ s/^\s*([*\$&])//;
+ push(@out, "\$_[$n]"), next if $proto =~ s/^\s*([_*\$&])//;
push(@out, "[EMAIL PROTECTED]"), last if $proto =~ s/^\s*(;\s*)?\@//;
$seen_semi = 1, $n--, next if $proto =~ s/^\s*;//; # XXXX ????
die "Unknown prototype letters: \"$proto\"";
==== //depot/perl/lib/Fatal.t#2 (xtext) ====
Index: perl/lib/Fatal.t
--- perl/lib/Fatal.t#1~10676~ 2001-06-17 21:17:15.000000000 -0700
+++ perl/lib/Fatal.t 2007-03-18 12:44:42.000000000 -0700
@@ -7,7 +7,7 @@
}
use strict;
-use Fatal qw(open close :void opendir);
+use Fatal qw(open close :void opendir sin);
my $i = 1;
eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' };
End of Patch.
