In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/9f79693a6c7fc800ac118c568b2645ee1c5fd07c?hp=ddc3d23f07be7fca9d2ab2651ea35d86340bb5ea>
- Log -----------------------------------------------------------------
commit 9f79693a6c7fc800ac118c568b2645ee1c5fd07c
Author: Craig A. Berry <craigbe...@mac.com>
Date: Fri Nov 14 21:23:19 2014 -0600
Remove vmsish pragma from one-liners in Test::Simple's exit.t.
Awaiting upstream application at:
https://github.com/Test-More/test-more/pull/494
This was broken by a recent change that added double quotes around
the double quotes that were already there.
It also hasn't been working as intended for these tests for some
time as they manipulate the exit code directly in an END block,
and that sneaks by the effects of the pragma when run at compile
time.
This works:
$ perl -e "require vmsish; import vmsish 'hushed'; END {$? = 1};"
This (which is what the tests are doing) doesn't work:
$ perl -Mvmsish=hushed -e "END {$? = 1};"
%SYSTEM-F-ABORT, abort
So we'll just live with the noise from the exit messages. They
don't seem to cause any trouble for the core test suite.
-----------------------------------------------------------------------
Summary of changes:
Porting/Maintainers.pl | 5 ++++-
cpan/Test-Simple/t/Legacy/exit.t | 6 ------
t/porting/customized.dat | 1 +
3 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 2ed1f2d..94a8963 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1079,7 +1079,10 @@ use File::Glob qw(:case);
t/Legacy/pod.t
),
],
- },
+ 'CUSTOMIZED' => [
+ # Waiting to be merged upstream: see pull request #494
+ qw( t/Legacy/exit.t ),
+ ], },
'Text::Abbrev' => {
'DISTRIBUTION' => 'FLORA/Text-Abbrev-1.02.tar.gz',
diff --git a/cpan/Test-Simple/t/Legacy/exit.t b/cpan/Test-Simple/t/Legacy/exit.t
index ba29394..69b8e1c 100644
--- a/cpan/Test-Simple/t/Legacy/exit.t
+++ b/cpan/Test-Simple/t/Legacy/exit.t
@@ -23,12 +23,6 @@ use File::Spec;
my $Orig_Dir = cwd;
my $Perl = File::Spec->rel2abs($^X);
-if( $^O eq 'VMS' ) {
- # Quiet noisy 'SYS$ABORT'
- $Perl .= q{ -"I../lib"} if $ENV{PERL_CORE};
- $Perl .= q{ -"Mvmsish=hushed"};
-}
-
eval { require POSIX; &POSIX::WEXITSTATUS(0) };
if( $@ ) {
diff --git a/t/porting/customized.dat b/t/porting/customized.dat
index afae5a8..04299ff 100644
--- a/t/porting/customized.dat
+++ b/t/porting/customized.dat
@@ -3,6 +3,7 @@ Digest::MD5 cpan/Digest-MD5/t/files.t
bdbe05b705d9da305fedce7a9f4b6ba63250c7cf
IO::Socket::IP cpan/IO-Socket-IP/t/22timeout.t
0a65d4ca44663f70eea3c7f1ccb5faed2940611f
PerlIO::via::QuotedPrint cpan/PerlIO-via-QuotedPrint/t/QuotedPrint.t
ca39f0146e89de02c746e199c45dcb3e5edad691
Socket cpan/Socket/t/getnameinfo.t f25ae4125d64a81538d4d3b73a3a0b9ce3c0404d
+Test::Simple cpan/Test-Simple/t/Legacy/exit.t
83edbf569d56d8cdbabea552dfe5602ea1c1822e
Text::Balanced cpan/Text-Balanced/t/01_compile.t
1598cf491a48fa546260a2ec41142abe84da533d
Text::Balanced cpan/Text-Balanced/t/02_extbrk.t
6ba1b64a4604e822dc2260b8ffcea6b406339ee8
Text::Balanced cpan/Text-Balanced/t/03_extcbk.t
3307c980af28963414cab799c427b359ef3b8657
--
Perl5 Master Repository
