X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpragma%2Fwarn%2Fop;h=9a278effe90605962de24b2436bf6d0b1f138390;hb=6e7c9e4dbac15378c097f03304f6025aebc78a15;hp=950c0c8ffd2f18dfea72a2d4fd6e4af3518d71fc;hpb=5102b790fbd2a20471bf6f85d8337fd8b34f8dff;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/pragma/warn/op b/t/pragma/warn/op
index 950c0c8..9a278ef 100644
--- a/t/pragma/warn/op
+++ b/t/pragma/warn/op
@@ -558,7 +558,7 @@ Useless use of a constant in void context at - line 3.
 Useless use of a constant in void context at - line 4.
 ########
 # op.c
-$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; # known scalar leak
+BEGIN{ $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; } # known scalar leak
 use warnings 'unsafe' ;
 my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ;
 @a =~ /abc/ ;