In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/111bb8ca0c2b570c8721e72da9675733b8f281b3?hp=256fef9369dcaa9ef030bed7ae45a20a6e67d234>
- Log ----------------------------------------------------------------- commit 111bb8ca0c2b570c8721e72da9675733b8f281b3 Author: Father Chrysostomos <[email protected]> Date: Sun Nov 16 23:15:20 2014 -0800 Remove redundant EBCDIC lines from Deparse.t When these were added to b.t in bd145f00387, the Deparse output still contained \s, so it made sense to replace something else with \s in order for the test to match. In fcd95d642 and fee7e83848 it changed, such that the output no longer contained \s, so, at least here, the EBCDIC code is doing nothing. M lib/B/Deparse.t commit 43275f00a97a14a80f9493c38895a5c77f0fc88a Author: Father Chrysostomos <[email protected]> Date: Mon Nov 17 21:45:20 2014 -0800 svleak.t: Add test for #123198 M t/op/svleak.t ----------------------------------------------------------------------- Summary of changes: lib/B/Deparse.t | 2 -- t/op/svleak.t | 5 ++++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index d73d858..a4d1a8e 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -125,8 +125,6 @@ $a = `$^X $path "-MO=Deparse" -anlwi.bak -e 1 2>&1`; $a =~ s/-e syntax OK\n//g; $a =~ s/.*possible typo.*\n//; # Remove warning line $a =~ s/.*-i used with no filenames.*\n//; # Remove warning line -$a =~ s{\\340\\242}{\\s} if (ord("\\") == 224); # EBCDIC, cp 1047 or 037 -$a =~ s{\\274\\242}{\\s} if (ord("\\") == 188); # $^O eq 'posix-bc' $b = quotemeta <<'EOF'; BEGIN { $^I = ".bak"; } BEGIN { $^W = 1; } diff --git a/t/op/svleak.t b/t/op/svleak.t index ba757e4..358035d 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -15,7 +15,7 @@ BEGIN { use Config; -plan tests => 127; +plan tests => 128; # run some code N times. If the number of SVs at the end of loop N is # greater than (N-1)*delta at the end of loop 1, we've got a leak @@ -256,6 +256,9 @@ eleak(2,0,'/[pp]/'); eleak(2,0,'/[[:ascii:]]/'); eleak(2,0,'/[[.zog.]]/'); eleak(2,0,'/[.zog.]/'); +$::TODO = 'still leaks'; +eleak(2,0,'/|\W/', '/|\W/ [perl #123198]'); +$::TODO = ''; eleak(2,0,'no warnings; /(?[])/'); eleak(2,0,'no warnings; /(?[[a]+[b]])/'); eleak(2,0,'no warnings; /(?[[a]-[b]])/'); -- Perl5 Master Repository
