This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update IPC-Cmd to CPAN version 0.90
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 18 Nov 2013 15:13:01 +0000 (15:13 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Mon, 18 Nov 2013 15:13:01 +0000 (15:13 +0000)
  [DELTA]

0.90 Mon Nov 18 15:08:15 GMT 2013

  Misc:
  * skip some problematic tests when PERL_CORE

Porting/Maintainers.pl
cpan/IPC-Cmd/lib/IPC/Cmd.pm
cpan/IPC-Cmd/t/03_run-forked.t

index 6954e96..74ed55b 100755 (executable)
@@ -636,7 +636,7 @@ use File::Glob qw(:case);
     },
 
     'IPC::Cmd' => {
-        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.88.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.90.tar.gz',
         'FILES'        => q[cpan/IPC-Cmd],
     },
 
index 8fdd26c..62ab7e3 100644 (file)
@@ -18,7 +18,7 @@ BEGIN {
                         $HAVE_MONOTONIC
                     ];
 
-    $VERSION        = '0.88';
+    $VERSION        = '0.90';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;
index ecb2716..499b7ad 100644 (file)
@@ -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);