Hello community,
here is the log from the commit of package perl-IPC-Run
checked in at Wed Jul 12 20:49:27 CEST 2006.
--------
--- perl-IPC-Run/perl-IPC-Run.changes 2006-01-25 21:39:47.000000000 +0100
+++ perl-IPC-Run/perl-IPC-Run.changes 2006-07-12 13:21:24.000000000 +0200
@@ -1,0 +2,9 @@
+Wed Jul 12 13:19:00 CEST 2006 - anicka@suse.cz
+
+- update to 0.80
+ - IPC::Run::IO now retries on certain "temporarily unavailable" errors.
+ This should fix several reported issues with t/run.t, test 69.
+ - Applied documentation patch from RT.
+ - Fixed documentation to work with '<' redirect
+
+-------------------------------------------------------------------
Old:
----
IPC-Run-0.79-path.diff
IPC-Run-0.79.tar.bz2
New:
----
IPC-Run-0.80-path.diff
IPC-Run-0.80.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-IPC-Run.spec ++++++
--- /var/tmp/diff_new_pack.Pb07y7/_old 2006-07-12 20:48:33.000000000 +0200
+++ /var/tmp/diff_new_pack.Pb07y7/_new 2006-07-12 20:48:33.000000000 +0200
@@ -1,18 +1,18 @@
#
-# spec file for package perl-IPC-Run (Version 0.79)
+# spec file for package perl-IPC-Run (Version 0.80)
#
# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
# package are under the same license as the package itself.
#
-# Please submit bugfixes or comments via http://bugs.opensuse.org
+# Please submit bugfixes or comments via http://bugs.opensuse.org/
#
# norootforbuild
Name: perl-IPC-Run
-Version: 0.79
-Release: 3
+Version: 0.80
+Release: 1
Requires: perl = %{perl_version}
Autoreqprov: on
Group: Development/Libraries/Perl
@@ -65,6 +65,12 @@
/var/adm/perl-modules/perl-IPC-Run
%changelog -n perl-IPC-Run
+* Wed Jul 12 2006 - anicka@suse.cz
+- update to 0.80
+- IPC::Run::IO now retries on certain "temporarily unavailable" errors.
+ This should fix several reported issues with t/run.t, test 69.
+- Applied documentation patch from RT.
+- Fixed documentation to work with '<' redirect
* Wed Jan 25 2006 - mls@suse.de
- converted neededforbuild to BuildRequires
* Mon Jan 09 2006 - anicka@suse.cz
++++++ IPC-Run-0.79-path.diff -> IPC-Run-0.80-path.diff ++++++
++++++ IPC-Run-0.79.tar.bz2 -> IPC-Run-0.80.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/Changes new/IPC-Run-0.80/Changes
--- old/IPC-Run-0.79/Changes 2005-01-20 00:44:06.000000000 +0100
+++ new/IPC-Run-0.80/Changes 2006-05-10 21:56:21.000000000 +0200
@@ -1,5 +1,15 @@
Revision history for Perl extension IPC::Run
+
+0.80
+ - IPC::Run::IO now retries on certain "temporarily unavailable" errors.
+ This should fix several reported issues with t/run.t, test 69.
+
+ Many thanks to < Eric (at) Scratch Computing (.com) > for the patch!
+
+ - Applied documentation patch from RT.
+ - Fixed documentation to work with '<' redirect
+
0.79 Wed Jan 19 15:39:00 PST 2005
- New maintainer: Richard Soderberg
- Resolved several RT tickets
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/META.yml new/IPC-Run-0.80/META.yml
--- old/IPC-Run-0.79/META.yml 2005-01-20 00:45:33.000000000 +0100
+++ new/IPC-Run-0.80/META.yml 2006-05-10 21:57:45.000000000 +0200
@@ -1,9 +1,10 @@
+# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: IPC-Run
-version: 0.79
+version: 0.80
version_from: lib/IPC/Run.pm
installdirs: site
requires:
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.12
+generated_by: ExtUtils::MakeMaker version 6.17
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/SIGNATURE new/IPC-Run-0.80/SIGNATURE
--- old/IPC-Run-0.79/SIGNATURE 2005-01-20 00:45:29.000000000 +0100
+++ new/IPC-Run-0.80/SIGNATURE 2006-05-10 21:57:34.000000000 +0200
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.44.
+signed via the Module::Signature module, version 0.50.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -14,10 +14,10 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 f64f4b770fd71fe79635e7192017213bad50af30 Changes
+SHA1 ddda40abf46f1e89c4b8ec2a98c9576af9a10571 Changes
SHA1 07e39c16ee58858c09d83849b286ea66d725ae1d MANIFEST
SHA1 dcd5a2e5e83f02e172b5bcee8407354097eff390 MANIFEST.SKIP
-SHA1 75c91254d55983f8807111b6e3e89282af1cf0e0 META.yml
+SHA1 78c9597325741774df7c75d41eeaa13a07457738 META.yml
SHA1 a14ca773e75d19d2dd63efc526fcba8e51b84ff6 Makefile.PL
SHA1 a02248670bc20319379ec21acafa5ed6f630f3a4 TODO
SHA1 3f5928d86e3e9ced4e3829048ff7bc88db3af4a1 abuse/blocking_debug_with_sub_coprocess
@@ -31,32 +31,32 @@
SHA1 d3d71aa1f3a2963d1e73226a65b5e944a9c7848b eg/runsh
SHA1 4271e0cd68f05e236c476feaf4bff2b2bd384fe0 eg/runsu
SHA1 67b31305d3a66c130ae9ae9df76653756446c734 eg/synopsis_scripting
-SHA1 70a83cdd91d800f4a5468c2fb25681ed6d8ca7e9 lib/IPC/Run.pm
+SHA1 a81152412125dfcd98346e3f9b32070cb0e49871 lib/IPC/Run.pm
SHA1 9d007f1da1079b2c1dfab02ef4f755f5c273c8cf lib/IPC/Run/Debug.pm
-SHA1 ae905467946aa89a2759db0c93e30a90fda5545e lib/IPC/Run/IO.pm
-SHA1 6b087892de5beb960a086f6d7c8f492269d2ed1e lib/IPC/Run/Timer.pm
-SHA1 10384ca3c12239ac5dcfa692bb5aa5c01ab80cc8 lib/IPC/Run/Win32Helper.pm
-SHA1 50e8bee80d471e00562b6ebb0c689550587a88c7 lib/IPC/Run/Win32IO.pm
-SHA1 3d399d5bbc863c8e9aa294b9ee14815e4134714e lib/IPC/Run/Win32Pump.pm
-SHA1 89ea722df1a6a3031d4d3722473225c8effe56e2 t/adopt.t
-SHA1 803c7094802edc3e209bd6575355e9b1670b471b t/binmode.t
-SHA1 641d5980b7aa75259da849f68ef24412e81c1aba t/bogus.t
-SHA1 861f48c9fbb4de7b0ea7abe280095d5d57017999 t/filter.t
-SHA1 998fff1a7e23b71d18d1da7332117e7d95bb7666 t/harness.t
-SHA1 26c915e080a031d25bb2d243d1c337e52042ea84 t/io.t
-SHA1 9f8e441b3647dcccbbcb2e3f305d191218bbca13 t/kill_kill.t
-SHA1 1f450b197764ae2f849faf1859889e48169265b0 t/parallel.t
-SHA1 9a1aeb38b2933c629c1e4bbad9e13ee236328d52 t/pty.t
-SHA1 6c6aac8a786dcc48803ebcc55c4876831c5dc4fb t/pump.t
-SHA1 4e5c5b73d85cddc57b2b35661c66a521c9c4b8d2 t/run.t
-SHA1 c291dd88a7225d07534101d3777f92e88bd4fbfa t/signal.t
-SHA1 e0b19f800cfa4af30ea513772ae7ae4aeeeab18d t/timeout.t
-SHA1 52da9b5262a0b0b41abbda3ffc08177f798b40fc t/timer.t
-SHA1 9b44612e8a2bfdd33d92515944018e6dc59be232 t/win32_compile.t
+SHA1 5ae3ec22051fcb9b23e41f6ba1069e1743f2f4b2 lib/IPC/Run/IO.pm
+SHA1 baa6f4418727870f8f3943f4d8d0cc30170f2753 lib/IPC/Run/Timer.pm
+SHA1 c504f4172c5d4de46bfc9c5db5fb09f7dffa2f48 lib/IPC/Run/Win32Helper.pm
+SHA1 8993424899d06664614c5b29a04609da9679fefb lib/IPC/Run/Win32IO.pm
+SHA1 6464ec5ac46463a5ac9ad58d507531c6c896f48e lib/IPC/Run/Win32Pump.pm
+SHA1 67a7fdfd0129504ae0ec78f9993313e21e685c09 t/adopt.t
+SHA1 2c0f00d2759cf936d25270bf7f1da7b512d28aba t/binmode.t
+SHA1 90d75fdda1f32f346a2a98d95a7cf8c63caa7456 t/bogus.t
+SHA1 032582f5529ed37f5096848a533211275a2069fb t/filter.t
+SHA1 8a3b7028dbb4f8ba797e6ba16a9949ad89217bfb t/harness.t
+SHA1 2f772b6a97c58ef0daac795bae868e7919b05265 t/io.t
+SHA1 239b78ac73dfd05c0a4d3e342a55f18827b62f59 t/kill_kill.t
+SHA1 4a5592b7a867193acba7ec66aa76ae9304657264 t/parallel.t
+SHA1 fa6a734db486e7abc88181240d95c8cd20bccfe0 t/pty.t
+SHA1 3acb9967c0c68c19a8c889ba91c89fb1db8feaf4 t/pump.t
+SHA1 1724c3a2835b06ff321544309e6e3e8bad865a30 t/run.t
+SHA1 3bab4c603d4dd5bd388c4e3c089c73960319e05f t/signal.t
+SHA1 56632e52a0ecb57b9bb21821dc758f6c9a0e30a8 t/timeout.t
+SHA1 31dfbc5a2c2af66697f6af5eeee4b224e1981163 t/timer.t
+SHA1 10644bbe21c0306df73b4a4da6b3cd9ee4cb3a06 t/win32_compile.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.2.6 (Darwin)
+Version: GnuPG v1.4.1 (Darwin)
-iD8DBQFB7vEZCV/r5CcpuVoRAtU4AJ4w9gYpkgBaz5+R7XZHbdnwOVKfOACfSOEk
-vXYPGCsnPYo7i9P0rTv2MLY=
-=nl2y
+iD8DBQFEYkWuCV/r5CcpuVoRAsKXAJwL5B62exN5neNRq1keXe/RvR03owCeMRDj
+okWVPtytzdMVBDFQotk5bBQ=
+=Uz5U
-----END PGP SIGNATURE-----
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/lib/IPC/Run/IO.pm new/IPC-Run-0.80/lib/IPC/Run/IO.pm
--- old/IPC-Run-0.79/lib/IPC/Run/IO.pm 2004-01-26 18:12:08.000000000 +0100
+++ new/IPC-Run-0.80/lib/IPC/Run/IO.pm 2006-05-10 21:34:46.000000000 +0200
@@ -2,7 +2,7 @@
=head1 NAME
- IPC::Run::IO -- I/O channels for IPC::Run.
+IPC::Run::IO -- I/O channels for IPC::Run.
=head1 SYNOPSIS
@@ -544,10 +544,18 @@
my ( $saved_op, $saved_num ) =($IPC::Run::filter_op,$IPC::Run::filter_num) ;
$IPC::Run::filter_op = $self ;
$IPC::Run::filter_num = -1 ;
- my $r = eval { IPC::Run::get_more_input() ; } ;
+ my $c = 0;
+ my $r;
+ {
+ $@ = '';
+ $r = eval { IPC::Run::get_more_input() ; } ;
+ $c++;
+ ##$@ and warn "redo ", substr($@, 0, 20) , " ";
+ (($c < 200) and ($@||'')=~ m/^Resource temporarily/) and redo;
+ }
( $IPC::Run::filter_op, $IPC::Run::filter_num ) = ( $saved_op, $saved_num ) ;
$self->{HARNESS} = undef ;
- die $@ if $@ ;
+ die "ack ", $@ if $@ ;
return $r ;
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/lib/IPC/Run/Timer.pm new/IPC-Run-0.80/lib/IPC/Run/Timer.pm
--- old/IPC-Run-0.79/lib/IPC/Run/Timer.pm 2005-01-19 23:59:03.000000000 +0100
+++ new/IPC-Run-0.80/lib/IPC/Run/Timer.pm 2006-05-10 21:33:38.000000000 +0200
@@ -2,7 +2,7 @@
=head1 NAME
- IPC::Run::Timer -- Timer channels for IPC::Run.
+IPC::Run::Timer -- Timer channels for IPC::Run.
=head1 SYNOPSIS
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/lib/IPC/Run/Win32Helper.pm new/IPC-Run-0.80/lib/IPC/Run/Win32Helper.pm
--- old/IPC-Run-0.79/lib/IPC/Run/Win32Helper.pm 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/lib/IPC/Run/Win32Helper.pm 2006-05-10 21:33:38.000000000 +0200
@@ -6,7 +6,7 @@
=head1 SYNOPSIS
-use IPC::Run::Win32Helper ; # Exports all by default
+ use IPC::Run::Win32Helper; # Exports all by default
=head1 DESCRIPTION
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/lib/IPC/Run/Win32IO.pm new/IPC-Run-0.80/lib/IPC/Run/Win32IO.pm
--- old/IPC-Run-0.79/lib/IPC/Run/Win32IO.pm 2004-01-26 18:12:08.000000000 +0100
+++ new/IPC-Run-0.80/lib/IPC/Run/Win32IO.pm 2006-05-10 21:33:39.000000000 +0200
@@ -6,7 +6,7 @@
=head1 SYNOPSIS
-use IPC::Run::Win32IO; # Exports all by default
+ use IPC::Run::Win32IO; # Exports all by default
=head1 DESCRIPTION
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/lib/IPC/Run/Win32Pump.pm new/IPC-Run-0.80/lib/IPC/Run/Win32Pump.pm
--- old/IPC-Run-0.79/lib/IPC/Run/Win32Pump.pm 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/lib/IPC/Run/Win32Pump.pm 2006-05-10 21:33:39.000000000 +0200
@@ -2,7 +2,7 @@
=head1 NAME
-IPC::Run::Win32Pumper - helper processes to shovel data to/from parent, child
+IPC::Run::Win32Pump - helper processes to shovel data to/from parent, child
=head1 SYNOPSIS
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/lib/IPC/Run.pm new/IPC-Run-0.80/lib/IPC/Run.pm
--- old/IPC-Run-0.79/lib/IPC/Run.pm 2005-01-20 00:38:59.000000000 +0100
+++ new/IPC-Run-0.80/lib/IPC/Run.pm 2006-05-10 21:57:24.000000000 +0200
@@ -6,7 +6,7 @@
# License or the Artistic License, as specified in the README file.
#
-$VERSION = 0.79;
+$VERSION = "0.80";
=head1 NAME
@@ -23,8 +23,8 @@
run \@cmd, \$in, \$out, \$err, timeout( 10 ) or die "cat: $?"
# Can do I/O to sub refs and filenames, too:
- run \@cmd, "in.txt", \&out, \&err or die "cat: $?"
- run \@cat, "in.txt", '>>', "out.txt", '2>>', "err.txt" ;
+ run \@cmd, '<', "in.txt", \&out, \&err or die "cat: $?"
+ run \@cat, '<', "in.txt", '>>', "out.txt", '2>>', "err.txt" ;
# Redirecting using psuedo-terminals instad of pipes.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/adopt.t new/IPC-Run-0.80/t/adopt.t
--- old/IPC-Run-0.79/t/adopt.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/adopt.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/binmode.t new/IPC-Run-0.80/t/binmode.t
--- old/IPC-Run-0.79/t/binmode.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/binmode.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
## Handy to have when our output is intermingled with debugging output sent
## to the debugging fd.
$| = 1 ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/bogus.t new/IPC-Run-0.80/t/bogus.t
--- old/IPC-Run-0.79/t/bogus.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/bogus.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/filter.t new/IPC-Run-0.80/t/filter.t
--- old/IPC-Run-0.79/t/filter.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/filter.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/harness.t new/IPC-Run-0.80/t/harness.t
--- old/IPC-Run-0.79/t/harness.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/harness.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/io.t new/IPC-Run-0.80/t/io.t
--- old/IPC-Run-0.79/t/io.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/io.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/kill_kill.t new/IPC-Run-0.80/t/kill_kill.t
--- old/IPC-Run-0.79/t/kill_kill.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/kill_kill.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/parallel.t new/IPC-Run-0.80/t/parallel.t
--- old/IPC-Run-0.79/t/parallel.t 2003-09-26 21:29:05.000000000 +0200
+++ new/IPC-Run-0.80/t/parallel.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
## Handy to have when our output is intermingled with debugging output sent
## to the debugging fd.
$| = 1 ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/pty.t new/IPC-Run-0.80/t/pty.t
--- old/IPC-Run-0.79/t/pty.t 2005-01-20 00:32:31.000000000 +0100
+++ new/IPC-Run-0.80/t/pty.t 2006-05-10 21:33:39.000000000 +0200
@@ -23,6 +23,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/pump.t new/IPC-Run-0.80/t/pump.t
--- old/IPC-Run-0.79/t/pump.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/pump.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/run.t new/IPC-Run-0.80/t/run.t
--- old/IPC-Run-0.79/t/run.t 2005-01-20 00:30:00.000000000 +0100
+++ new/IPC-Run-0.80/t/run.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
## Handy to have when our output is intermingled with debugging output sent
## to the debugging fd.
$| = 1 ;
@@ -158,8 +167,6 @@
my @tests = (
-sub { ok( $fd_map = _map_fds ) },
-
sub { ok( _map_fds, $fd_map ) ; $fd_map = _map_fds },
##
@@ -565,6 +572,8 @@
$err = undef ;
$fd_map = _map_fds ;
$r = run(
+ ## FreeBSD doesn't guarantee that fd 3 or 4 are available, so
+ ## don't assume, go for 5.
[ @perl, '-le', 'open( STDIN, "<&5" ) or die $! ; print <STDIN>' ],
"5<", \"Hello World",
'>', \$out,
@@ -1055,4 +1064,10 @@
plan tests => scalar @tests, todo => [ 69 ] ;
+# Must do this this late as plan uses localtime, and localtime on darwin opens
+# a file descriptor. Quite probably other operating systems do file descriptor
+# things during the test setup.
+
+$fd_map = _map_fds ;
+
$_->() for ( @tests ) ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/signal.t new/IPC-Run-0.80/t/signal.t
--- old/IPC-Run-0.79/t/signal.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/signal.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/timeout.t new/IPC-Run-0.80/t/timeout.t
--- old/IPC-Run-0.79/t/timeout.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/timeout.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
## Separate from run.t so run.t is not too slow.
use strict ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/timer.t new/IPC-Run-0.80/t/timer.t
--- old/IPC-Run-0.79/t/timer.t 2003-09-26 21:02:54.000000000 +0200
+++ new/IPC-Run-0.80/t/timer.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/IPC-Run-0.79/t/win32_compile.t new/IPC-Run-0.80/t/win32_compile.t
--- old/IPC-Run-0.79/t/win32_compile.t 2005-01-20 00:34:24.000000000 +0100
+++ new/IPC-Run-0.80/t/win32_compile.t 2006-05-10 21:33:39.000000000 +0200
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...