In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2221b6e72e26beda5ef0bcc757f00f60785ae96e?hp=1460e873ec17f9a996f988ce2e2b855426372dcb>
- Log ----------------------------------------------------------------- commit 2221b6e72e26beda5ef0bcc757f00f60785ae96e Author: Jerry D. Hedden <[email protected]> Date: Tue Jun 30 15:16:33 2009 -0400 Quiet t/op/stash.t output Attached patch to t/op/stash.t applies Craig Berry's fix (commit fbad106ea7f26c14f996d4ff2eb920ccffc44821) only on VMS. This keeps the noise from the affected tests from polluting the 'make test' output. ----------------------------------------------------------------------- Summary of changes: t/op/stash.t | 7 ++++--- 1 files changed, 4 insertions(+), 3 deletions(-) diff --git a/t/op/stash.t b/t/op/stash.t index 578f937..546bf9f 100644 --- a/t/op/stash.t +++ b/t/op/stash.t @@ -109,9 +109,8 @@ SKIP: { TODO: { local $TODO = "anon CVs not accounted for yet"; - my @results = split "\n", runperl + my @results = split "\n", runperl( switches => [ "-MB", "-l" ], - stderr => 1, prog => q{ my $sub = do { package four; @@ -138,7 +137,9 @@ SKIP: { print $st eq q/__ANON__/ ? q/ok/ : q/not ok/; print q/done/; - }; + }, + ($^O eq 'VMS') ? (stderr => 1) : () + ); ok( @results == 5 && $results[4] eq "done", "anon CVs in undefed stash don't segfault" ) -- Perl5 Master Repository
