Join GitHub today
GitHub is home to over 40 million developers working together to host and review code, manage projects, and build software together.
Sign upInternal error: "Attempt to free unreferenced scalar" #7131
Comments
This comment has been minimized.
This comment has been minimized.
From @jdlugoszI'm running ActiveState build 809 under Windows 2000. Main file what.perl: use Foo; print "Hello world\n"; Module Foo.pm: package Foo; my $LN= "\N{POUND SIGN}"; 1; # loaded OK The error I get is I could not reduce the problem down to one file; apparently having use --John |
This comment has been minimized.
This comment has been minimized.
From @iabynOn Tue, Feb 24, 2004 at 05:17:32AM -0000, John M. Dlugosz wrote:
Thanks for the report. main: Foo.pm: But it's too late in the evening for my cold-ridden brain to work out what Dave. -- |
This comment has been minimized.
This comment has been minimized.
The RT System itself - Status changed from 'new' to 'open' |
This comment has been minimized.
This comment has been minimized.
From nick@ing-simmons.netJohn M. Dlugosz <perl5-porters@perl.org> writes:
Note that the use-s in Foo.pm are before the package line so I suspect the problem is calling charnames::->import(':full') twice in same
|
This comment has been minimized.
This comment has been minimized.
From @iabynOn Thu, Feb 26, 2004 at 01:08:39AM +0000, Dave Mitchell wrote:
I've reduced it further to: $^H |= 0x20000; eval q{BEGIN { $^H |= 0x20000 }} When a new hints scope was pushed, a SAVEFREESV() of the hints hash was The change below to bleedperl fixes it. Dave. -- Change 22594 by davem@davem-percy on 2004/03/26 13:05:50 [perl #27040] - hints hash was being double freed on scope exit Affected files ... ... //depot/perl/op.c#620 edit Differences ... ==== //depot/perl/op.c#620 (text) ==== @@ -1763,13 +1763,11 @@ +/* XXX kept for BINCOMPAT only */ int ==== //depot/perl/scope.c#122 (text) ==== @@ -1042,6 +1042,11 @@ ==== //depot/perl/scope.h#65 (text) ==== @@ -152,14 +152,14 @@ #define SAVEHINTS() \ #define SAVECOMPPAD() \ ==== //depot/perl/t/comp/hints.t#3 (text) ==== @@ -2,7 +2,7 @@ # Tests the scoping of $^H and %^H -BEGIN { print "1..14\n"; } |
This comment has been minimized.
This comment has been minimized.
@iabyn - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#27040 (status was 'resolved')
Searchable as RT27040$