diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-01-19 16:43:54 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-22 12:47:03 +0000 |
| commit | 6b42d12b8135b62734b087ee4b02cf28d259a483 (patch) | |
| tree | f4c8219179645773872ef0bf1a6abb0dcec3625f /t/op | |
| parent | e05a8f29fa78aef20a9869bf742d9b3217cda019 (diff) | |
| download | perl-6b42d12b8135b62734b087ee4b02cf28d259a483.tar.gz | |
Re: [perl #15439] unreferenced scalar due to double DESTROY
Message-ID: <20030119164353.B24444@fdgroup.com>
p4raw-id: //depot/perl@18554
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/array.t | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/t/op/array.t b/t/op/array.t index 472e02cd35..8f2f1a9510 100755 --- a/t/op/array.t +++ b/t/op/array.t @@ -1,6 +1,12 @@ #!./perl -print "1..72\n"; + +BEGIN { + chdir 't' if -d 't'; + @INC = '../lib'; +} + +print "1..73\n"; # # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them @@ -247,3 +253,22 @@ sub tary { @tary = (0..50); tary(); + + +require './test.pl'; + +# bugid #15439 - clearing an array calls destructors which may try +# to modify the array - caused 'Attempt to free unreferenced scalar' + +my $got = runperl ( + prog => q{ + sub X::DESTROY { @a = () } + @a = (bless {}, 'X'); + @a = (); + }, + stderr => 1 + ); + +$got =~ s/\n/ /g; +print "# $got\nnot " unless $got eq ''; +print "ok 73\n"; |