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 <rsod@cpan.org> - 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...