From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Sat, 19 Oct 2013 15:05:35 +0000 (+0100)
Subject: Fix IPC-Cmd tests for Solaris (and potentially other SVR* variants)
X-Git-Tag: upstream/5.20.0~1525
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6d1e0911864d555c9a4092b6f03614010f4243c7;p=platform%2Fupstream%2Fperl.git

Fix IPC-Cmd tests for Solaris (and potentially other SVR* variants)
---

diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
index 4a9dc9b..10b4ace 100644
--- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm
+++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
@@ -17,7 +17,7 @@ BEGIN {
                         $INSTANCES $ALLOW_NULL_ARGS
                     ];
 
-    $VERSION        = '0.84';
+    $VERSION        = '0.84_01';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;
diff --git a/cpan/IPC-Cmd/t/03_run-forked.t b/cpan/IPC-Cmd/t/03_run-forked.t
index 8e9051f..eedbad8 100644
--- a/cpan/IPC-Cmd/t/03_run-forked.t
+++ b/cpan/IPC-Cmd/t/03_run-forked.t
@@ -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");