This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix IPC-Cmd tests for Solaris (and potentially other SVR* variants)
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 19 Oct 2013 15:05:35 +0000 (16:05 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 19 Oct 2013 15:05:35 +0000 (16:05 +0100)
cpan/IPC-Cmd/lib/IPC/Cmd.pm
cpan/IPC-Cmd/t/03_run-forked.t

index 4a9dc9b..10b4ace 100644 (file)
@@ -17,7 +17,7 @@ BEGIN {
                         $INSTANCES $ALLOW_NULL_ARGS
                     ];
 
-    $VERSION        = '0.84';
+    $VERSION        = '0.84_01';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;
index 8e9051f..eedbad8 100644 (file)
@@ -31,9 +31,9 @@ unless ( $true and $false and $echo and $sleep ) {
 my $r;
 
 $r = run_forked($true);
-ok($r->{'exit_code'} eq 0, "$true returns 0");
+ok($r->{'exit_code'} eq '0', "$true returns 0");
 $r = run_forked($false);
-ok($r->{'exit_code'} eq 1, "$false returns 1");
+ok($r->{'exit_code'} ne '0', "$false returns 1");
 
 $r = run_forked([$echo, "test"]);
 ok($r->{'stdout'} =~ /test/, "arrayref cmd: https://rt.cpan.org/Ticket/Display.html?id=70530");