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.88
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 15 Nov 2013 14:56:16 +0000 (14:56 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 15 Nov 2013 14:56:16 +0000 (14:56 +0000)
  [DELTA]

  0.88 Fri Nov 15 14:44:03 GMT 2013

    Misc:
    * skip some problematic tests on Cygwin

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

index 01ca0d5..debad08 100755 (executable)
@@ -636,7 +636,7 @@ use File::Glob qw(:case);
     },
 
     'IPC::Cmd' => {
-        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.86.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.88.tar.gz',
         'FILES'        => q[cpan/IPC-Cmd],
     },
 
index e41095f..8fdd26c 100644 (file)
@@ -18,7 +18,7 @@ BEGIN {
                         $HAVE_MONOTONIC
                     ];
 
-    $VERSION        = '0.86';
+    $VERSION        = '0.88';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;
index 633f7cc..ecb2716 100644 (file)
@@ -42,9 +42,10 @@ ok($r->{'stdout'} =~ /test/, "arrayref cmd: https://rt.cpan.org/Ticket/Display.h
 $r = run_forked("$sleep 5", {'timeout' => 2});
 ok($r->{'timeout'}, "[$sleep 5] runs longer than 2 seconds");
 
-
-# https://rt.cpan.org/Ticket/Display.html?id=85912
-sub runSub {
+SKIP: {
+  skip "Exhibits problems on Cygwin", 4 if $^O eq 'cygwin';
+  # https://rt.cpan.org/Ticket/Display.html?id=85912
+  sub runSub {
        my $blah = "blahblah";
        my $out= $_[0];
        my $err= $_[1];
@@ -56,13 +57,14 @@ sub runSub {
        };
 
        return run_forked($s);
-}
+  }
 
-my $retval= runSub("sailor", "eek!");
-ok($retval->{"stdout"} =~ /blahblah/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stdout 1");
-ok($retval->{"stdout"} =~ /Hello sailor/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stdout 2");
-ok($retval->{"stderr"} =~ /Boo/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stderr 1");
-ok($retval->{"stderr"} =~ /eek/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stderr 2");
+  my $retval= runSub("sailor", "eek!");
+  ok($retval->{"stdout"} =~ /blahblah/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stdout 1");
+  ok($retval->{"stdout"} =~ /Hello sailor/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stdout 2");
+  ok($retval->{"stderr"} =~ /Boo/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stderr 1");
+  ok($retval->{"stderr"} =~ /eek/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stderr 2");
+}
 
 $r = run_forked("$echo yes i know this is the way", {'discard_output' => 1});
 ok($r->{'stdout'} eq '', "discard_output stdout");