Change 33342 by [EMAIL PROTECTED] on 2008/02/22 00:07:15
fix variable names in 'ununit var' warnings in evals
Affected files ...
... //depot/perl/sv.c#1509 edit
... //depot/perl/t/lib/warnings/9uninit#20 edit
Differences ...
==== //depot/perl/sv.c#1509 (text) ====
Index: perl/sv.c
--- perl/sv.c#1508~33336~ 2008-02-20 01:17:37.000000000 -0800
+++ perl/sv.c 2008-02-21 16:07:15.000000000 -0800
@@ -12545,6 +12545,7 @@
goto do_op2;
+ case OP_ENTEREVAL: /* could be eval $undef or $x='$undef'; eval $x */
case OP_RV2SV:
case OP_CUSTOM:
match = 1; /* XS or custom code could trigger random warnings */
==== //depot/perl/t/lib/warnings/9uninit#20 (text) ====
Index: perl/t/lib/warnings/9uninit
--- perl/t/lib/warnings/9uninit#19~33310~ 2008-02-14 07:44:14.000000000
-0800
+++ perl/t/lib/warnings/9uninit 2008-02-21 16:07:15.000000000 -0800
@@ -669,6 +669,9 @@
$foo =~ s//$g1/;
$foo =~ s/$m1/$g1/;
$foo =~ s/./$m1/e;
+undef $g1;
+$m1 = '$g1';
+$foo =~ s//$m1/ee;
EXPECT
Use of uninitialized value $_ in pattern match (m//) at - line 5.
Use of uninitialized value $m1 in regexp compilation at - line 6.
@@ -731,6 +734,7 @@
Use of uninitialized value $m1 in regexp compilation at - line 40.
Use of uninitialized value $g1 in substitution iterator at - line 40.
Use of uninitialized value $m1 in substitution iterator at - line 41.
+Use of uninitialized value in substitution iterator at - line 44.
########
use warnings 'uninitialized';
my ($m1);
@@ -1304,13 +1308,15 @@
Use of uninitialized value $g1 in gmtime at - line 6.
########
use warnings 'uninitialized';
-my ($m1, $v);
+my ($m1, $m2, $v);
$v = eval;
$v = eval $m1;
+$m2 = q($m1); $v = 1 + eval $m2;
EXPECT
Use of uninitialized value $_ in eval "string" at - line 4.
Use of uninitialized value $m1 in eval "string" at - line 5.
+Use of uninitialized value in addition (+) at - line 6.
########
use warnings 'uninitialized';
my ($m1);
End of Patch.
