This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct stupidities in 4c3ac4b
[perl5.git] / t / lib / warnings / 9uninit
index 33cc2b9..1dcee79 100644 (file)
@@ -694,6 +694,8 @@ sub FETCH { undef }
 
 tie my $m1, "";
 my $v = $m1 + $m1;
+no warnings;
+$v = $m1 + $m1;
 EXPECT
 Use of uninitialized value $m1 in addition (+) at - line 6.
 Use of uninitialized value $m1 in addition (+) at - line 6.