[perl.git] branch sprout/vmsish, updated. v5.19.5-118-g5832e44

[Father Chrysostomos]

In perl.git, the branch sprout/vmsish has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/5832e44d19d5f899d3d7fb1237a9faed7a7aecfc?hp=712d14faf4b98e7c225731bc42fb65e4ee485c5f>

- Log -----------------------------------------------------------------
commit 5832e44d19d5f899d3d7fb1237a9faed7a7aecfc
Author: Father Chrysostomos <spr...@cpan.org>
Date:   Fri Nov 8 12:41:28 2013 -0800

    Try harder to make the vmsish-exit test fail
-----------------------------------------------------------------------

Summary of changes:
 lib/vmsish.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/vmsish.t b/lib/vmsish.t
index cf2ac87..f2b451d 100644
--- a/lib/vmsish.t
+++ b/lib/vmsish.t
@@ -60,7 +60,7 @@ is($?,0,"outer lex scope of vmsish [POSIX status]");
   ok(length($msg)==0,"vmsish OK exit, DCL error message check");
   is($?&1,1, "vmsish status check, vmsish OK exit");
 
-  $msg = do_a_perl('-e "use vmsish qw(exit); &CORE::exit(1)"');
+  $msg = do_a_perl('-e "\&CORE::exit;use vmsish qw(exit);&CORE::exit(1)"');
     $msg =~ s/\n/\\n/g; # keep output on one line
   ok(length($msg)==0,"vmsish OK exit (via &CORE::), DCL err msg check");
   is($?&1,1, "vmsish status check, vmsish OK exit (&CORE::exit)");

--
Perl5 Master Repository