New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
[PATCH perl5.005_62] scalars leaked in op/lex_assign.t and pragma/warnings.t #765
Labels
Comments
From rmb1@cise.npl.co.ukWhen compiled with -Doptimize=-g The following patch fixes the output from the tests Robin Index: perl5.005_62/t/op/lex_assign.t Inline Patchdiff -u perl5.005_62/t/op/lex_assign.t:1.1.1.1 perl5.005_62/t/op/lex_assign.t:1.2
--- perl5.005_62/t/op/lex_assign.t:1.1.1.1 Tue Oct 19 10:40:41 1999
+++ perl5.005_62/t/op/lex_assign.t Tue Oct 19 12:08:41 1999
@@ -4,6 +4,7 @@
chdir 't' if -d 't';
unshift @INC, '../lib';
}
+$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
umask 0;
$xref = \ "";
Inline Patchdiff -u perl5.005_62/t/pragma/warn/op:1.1.1.1 perl5.005_62/t/pragma/warn/op:1.2
--- perl5.005_62/t/pragma/warn/op:1.1.1.1 Tue Oct 19 10:40:44 1999
+++ perl5.005_62/t/pragma/warn/op Tue Oct 19 12:09:27 1999
@@ -558,7 +558,7 @@
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/ ; Perl Info
|
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Migrated from rt.perl.org#1689 (status was 'resolved')
Searchable as RT1689$
The text was updated successfully, but these errors were encountered: