diff options
Diffstat (limited to 't/pragma/warn/op')
| -rw-r--r-- | t/pragma/warn/op | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/pragma/warn/op b/t/pragma/warn/op index f3c0548e57..de326f8b0c 100644 --- a/t/pragma/warn/op +++ b/t/pragma/warn/op @@ -569,7 +569,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 -# +BEGIN{ $ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; } # known scalar leak use warnings 'misc' ; my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ; @a =~ /abc/ ; |