From: Josh ben Jore Date: Mon, 20 Jul 2009 18:05:51 +0000 (-0700) Subject: Revert "Test that `use feature' doesn't leak a scalar during s///ee" X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a5326e85f764f14d32081e47c608b5f90bdfb1f4;p=p5sagit%2Fp5-mst-13.2.git Revert "Test that `use feature' doesn't leak a scalar during s///ee" This reverts commit cda5e2ec34321ed347095f583f979be84943ec52 which duplicated something already commited in fa13de9435b2f7be1099b9202ae6e26021b00ba8. --- diff --git a/MANIFEST b/MANIFEST index 6192dd0..9b2e198 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4027,7 +4027,6 @@ t/lib/dprof/test8_v Perl code profiler tests t/lib/dprof/V.pm Perl code profiler tests t/lib/feature/bundle Tests for feature bundles t/lib/feature/implicit Tests for implicit loading of feature.pm -t/lib/feature/leak Tests for memory leaks t/lib/feature/nonesuch Tests for enabling/disabling nonexistent feature t/lib/feature/say Tests for enabling/disabling say feature t/lib/feature/switch Tests for enabling/disabling switch feature diff --git a/t/lib/feature/leak b/t/lib/feature/leak deleted file mode 100644 index fbd35f0..0000000 --- a/t/lib/feature/leak +++ /dev/null @@ -1,12 +0,0 @@ -Check that 'use feature' does not leak - -__END__ -# RT 63110 - Check that s///ee does not leak a hints variable -use feature qw(:5.10); -my $t; -my $s = "a"; -$s =~ s/a/$t = \%^H; qq( qq() );/ee; -print Internals::SvREFCNT(%$t); - -EXPECT -1