Update IPC-Cmd to CPAN version 0.90

  [DELTA]

0.90 Mon Nov 18 15:08:15 GMT 2013

  Misc:
  * skip some problematic tests when PERL_CORE

2 files changed, 15 insertions, 11 deletions

diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
index 8fdd26c659..62ab7e3de6 100644
--- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm
+++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
@@ -18,7 +18,7 @@ BEGIN {
                         $HAVE_MONOTONIC
                     ];
 
-    $VERSION        = '0.88';
+    $VERSION        = '0.90';
     $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 ecb271601e..499b7adc1c 100644
--- a/cpan/IPC-Cmd/t/03_run-forked.t
+++ b/cpan/IPC-Cmd/t/03_run-forked.t
@@ -81,16 +81,20 @@ for (my $i = 0; $i < 10240; $i++) {
 }
 close($fh);
 
-for (my $i = 0; $i < 100; $i++) {
-  my $f_ipc_cmd = IPC::Cmd::run_forked("$cat $filename");
-  my $f_backticks = `$cat $filename`;
-  if ($f_ipc_cmd->{'stdout'} ne $f_backticks) {
-    fail ("reading $filename: run_forked output length [" . length($f_ipc_cmd->{'stdout'}) . "], backticks output length [" . length ($f_backticks) . "]");
-    #print Data::Dumper::Dumper($f_ipc_cmd);
-    die;
-  }
-  else {
-    pass ("$i: reading $filename");
+
+SKIP: {
+  skip 'Skip these tests in PERL_CORE', 100 if $ENV{PERL_CORE};
+  for (my $i = 0; $i < 100; $i++) {
+    my $f_ipc_cmd = IPC::Cmd::run_forked("$cat $filename");
+    my $f_backticks = `$cat $filename`;
+    if ($f_ipc_cmd->{'stdout'} ne $f_backticks) {
+      fail ("reading $filename: run_forked output length [" . length($f_ipc_cmd->{'stdout'}) . "], backticks output length [" . length ($f_backticks) . "]");
+      #print Data::Dumper::Dumper($f_ipc_cmd);
+      die;
+    }
+    else {
+      pass ("$i: reading $filename");
+    }
   }
 }
 unlink($filename);