diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-04-06 22:03:33 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-04-06 22:03:51 -0700 |
| commit | 837c87981b0d72533fc9e43f83cca13e78853569 (patch) | |
| tree | 273a71d8e41292124355480f817a4a7a04075472 /t | |
| parent | 4c3ac4ba94c3963cbfea8fd6a28648d68ac6063a (diff) | |
| download | perl-837c87981b0d72533fc9e43f83cca13e78853569.tar.gz | |
Correct stupidities in 4c3ac4b
Allocating an extra SV for rare edge cases...er...only needs to be
done in those rare edge cases.
Uninitialized warnings are only supposed to be enabled when they are.
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/9uninit | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit index 33cc2b9080..1dcee790e2 100644 --- a/t/lib/warnings/9uninit +++ b/t/lib/warnings/9uninit @@ -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. |