diff options
Diffstat (limited to 't/pragma/warn/op')
| -rw-r--r-- | t/pragma/warn/op | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/t/pragma/warn/op b/t/pragma/warn/op index dce52d8c93..2377066622 100644 --- a/t/pragma/warn/op +++ b/t/pragma/warn/op @@ -555,6 +555,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 use warning 'unsafe' ; my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ; @a =~ /abc/ ; @@ -586,20 +587,20 @@ my $a ; my @a = () ; my %a = () ; my $b = \@a ; my $c = \%a ; %$c =~ tr/a/b/ ; } EXPECT -Applying pattern match to @array will act on scalar(@array) at - line 4. -Applying substitution to @array will act on scalar(@array) at - line 5. -Can't modify private array in substitution at - line 5, near "s/a/b/ ;" -Applying character translation to @array will act on scalar(@array) at - line 6. -Applying pattern match to @array will act on scalar(@array) at - line 7. -Applying substitution to @array will act on scalar(@array) at - line 8. -Applying character translation to @array will act on scalar(@array) at - line 9. -Applying pattern match to %hash will act on scalar(%hash) at - line 10. -Applying substitution to %hash will act on scalar(%hash) at - line 11. -Applying character translation to %hash will act on scalar(%hash) at - line 12. -Applying pattern match to %hash will act on scalar(%hash) at - line 13. -Applying substitution to %hash will act on scalar(%hash) at - line 14. -Applying character translation to %hash will act on scalar(%hash) at - line 15. -BEGIN not safe after errors--compilation aborted at - line 17. +Applying pattern match to @array will act on scalar(@array) at - line 5. +Applying substitution to @array will act on scalar(@array) at - line 6. +Can't modify private array in substitution at - line 6, near "s/a/b/ ;" +Applying character translation to @array will act on scalar(@array) at - line 7. +Applying pattern match to @array will act on scalar(@array) at - line 8. +Applying substitution to @array will act on scalar(@array) at - line 9. +Applying character translation to @array will act on scalar(@array) at - line 10. +Applying pattern match to %hash will act on scalar(%hash) at - line 11. +Applying substitution to %hash will act on scalar(%hash) at - line 12. +Applying character translation to %hash will act on scalar(%hash) at - line 13. +Applying pattern match to %hash will act on scalar(%hash) at - line 14. +Applying substitution to %hash will act on scalar(%hash) at - line 15. +Applying character translation to %hash will act on scalar(%hash) at - line 16. +BEGIN not safe after errors--compilation aborted at - line 18. ######## # op.c use warning 'syntax' ; |