Hello community,
here is the log from the commit of package perl-IPC-Run for openSUSE:Factory
checked in at Sat Apr 3 00:22:26 CEST 2010.
--------
--- perl-IPC-Run/perl-IPC-Run.changes 2010-03-30 18:36:09.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-IPC-Run/perl-IPC-Run.changes 2010-04-02 13:20:33.000000000 +0200
@@ -1,0 +2,11 @@
+Thu Apr 1 18:08:43 CEST 2010 - anicka@suse.cz
+
+- update to 0.89
+ * Revert extended tests to require "oslo consensus" variables
+ * Add IO::Pty to META.yml requirement
+ * Missed dangling isa in IPC::Run::Debug
+ * Fix retry for read of fh when I get "Resource temporarily
+ unavailable."
+ * Fix POD indentation in IO.pm
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
IPC-Run-0.87-path.diff
IPC-Run-0.87.tar.bz2
New:
----
IPC-Run-0.89-path.diff
IPC-Run-0.89.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-IPC-Run.spec ++++++
--- /var/tmp/diff_new_pack.LBfyvv/_old 2010-04-03 00:22:06.000000000 +0200
+++ /var/tmp/diff_new_pack.LBfyvv/_new 2010-04-03 00:22:06.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-IPC-Run (Version 0.87)
+# spec file for package perl-IPC-Run (Version 0.89)
#
# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
@@ -19,7 +19,7 @@
Name: perl-IPC-Run
-Version: 0.87
+Version: 0.89
Release: 1
Requires: perl = %{perl_version}
AutoReqProv: on
++++++ IPC-Run-0.87-path.diff -> IPC-Run-0.89-path.diff ++++++
++++++ IPC-Run-0.87.tar.bz2 -> IPC-Run-0.89.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/Changes new/IPC-Run-0.89/Changes
--- old/IPC-Run-0.87/Changes 2010-03-29 20:00:00.000000000 +0200
+++ new/IPC-Run-0.89/Changes 2010-04-01 06:44:32.000000000 +0200
@@ -1,5 +1,17 @@
Revision history for Perl extension IPC::Run
+0.89 Wed 31 Mar 2010
+ - Revert extended tests to require "oslo consensus" variables - http://use.perl.org/~Alias/journal/36128
+ - Add IO::Pty to META.yml requirement This has been inconsistently depended on over the years in META.yml
+
+0.88 Tue 30 Mar 2010
+ - Missed dangling isa in IPC::Run::Debug
+ - Fix retry for read of fh when I get "Resource temporarily unavailable."
+ It was previously pounding on the file handle with no rest 200 times then giving up.
+ On fast systems this wasn't long enough. I'm implementing select(undef, undef, 0.01)
+ to provide a more consistent retry among hardware and os.
+ - Fix POD indentation in IO.pm
+
0.87 Mon 29 Mar 2010
- Add doc type fixes - RT 56030 from carnil (Debian)
- Remove reccommends for AUTHOR only modules
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/META.yml new/IPC-Run-0.89/META.yml
--- old/IPC-Run-0.87/META.yml 2010-03-29 20:01:51.000000000 +0200
+++ new/IPC-Run-0.89/META.yml 2010-04-01 06:46:12.000000000 +0200
@@ -1,8 +1,9 @@
--- #YAML:1.0
name: IPC-Run
-version: 0.87
+version: 0.89
abstract: system() and background procs w/ piping, redirs, ptys (Unix, Win32)
-author: []
+author:
+ - Barrie Slaymaker
license: perl
distribution_type: module
configure_requires:
@@ -11,6 +12,7 @@
ExtUtils::MakeMaker: 0
Test::More: 0
requires:
+ IO::Pty: 1.08
Test::More: 0.47
resources:
bugtracker: https://rt.cpan.org/NoAuth/Bugs.html?Dist=IPC-Run
@@ -20,7 +22,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.56
+generated_by: ExtUtils::MakeMaker version 6.55_02
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/Makefile.PL new/IPC-Run-0.89/Makefile.PL
--- old/IPC-Run-0.87/Makefile.PL 2010-03-29 19:58:30.000000000 +0200
+++ new/IPC-Run-0.89/Makefile.PL 2010-04-01 06:41:45.000000000 +0200
@@ -41,7 +41,8 @@
WriteMakefile(
NAME => 'IPC::Run',
- ABSTRACT => 'system() and background procs w/ piping, redirs, ptys (Unix, Win32)',
+ ABSTRACT => 'system() and background procs w/ piping, redirs, ptys (Unix, Win32)',
+ AUTHOR => 'Barrie Slaymaker ',
VERSION_FROM => 'lib/IPC/Run.pm',
($ExtUtils::MakeMaker::VERSION >= 6.3002 ? ('LICENSE' => 'perl', ) : ()),
PREREQ_PM => {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/lib/IPC/Run/Debug.pm new/IPC-Run-0.89/lib/IPC/Run/Debug.pm
--- old/IPC-Run-0.87/lib/IPC/Run/Debug.pm 2010-03-29 19:49:27.000000000 +0200
+++ new/IPC-Run-0.89/lib/IPC/Run/Debug.pm 2010-04-01 06:30:07.000000000 +0200
@@ -70,7 +70,7 @@
use Exporter;
use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS};
BEGIN {
- $VERSION = '0.87';
+ $VERSION = '0.89';
@ISA = qw( Exporter );
@EXPORT = qw(
_debug
@@ -268,7 +268,7 @@
my $op = pop;
my $kid = $_[0];
-Carp::carp join " ", caller(0), $text, $op if defined $op && isa( $op, "IO::Pty" );
+Carp::carp join " ", caller(0), $text, $op if defined $op && UNIVERSAL::isa( $op, "IO::Pty" );
_debug(
$text,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/lib/IPC/Run/IO.pm new/IPC-Run-0.89/lib/IPC/Run/IO.pm
--- old/IPC-Run-0.87/lib/IPC/Run/IO.pm 2010-03-29 19:48:41.000000000 +0200
+++ new/IPC-Run-0.89/lib/IPC/Run/IO.pm 2010-04-01 06:30:13.000000000 +0200
@@ -1,7 +1,5 @@
package IPC::Run::IO;
-=pod
-
=head1 NAME
IPC::Run::IO -- I/O channels for IPC::Run.
@@ -57,14 +55,6 @@
INCOMPATIBLE CHANGE: due to the awkwardness introduced in ripping pseudohashes
out of Perl, this class I<no longer> uses the fields pragma.
-=head1 TODO
-
-Implement bidirectionality.
-
-=head1 AUTHOR
-
-Barrie Slaymaker
-
=cut
## This class is also used internally by IPC::Run in a very initimate way,
@@ -82,7 +72,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.87';
+ $VERSION = '0.89';
if ( Win32_MODE ) {
eval "use IPC::Run::Win32Helper; require IPC::Run::Win32IO; 1"
or ( $@ && die ) or die "$!";
@@ -92,17 +82,15 @@
sub _empty($);
*_empty = \&IPC::Run::_empty;
-=pod
-
-=over
+=head1 SUBROUTINES
-=over
+=over 4
=item new
-TODO: Needs more thorough documentation. Patches welcome.
+I think it takes >> or << along with some other data.
-I think it takes >> or << along with some other data.
+TODO: Needs more thorough documentation. Patches welcome.
=cut
@@ -233,8 +221,6 @@
return $self;
}
-=over
-
=item filename
Gets/sets the filename. Returns the value after the name change, if
@@ -248,8 +234,6 @@
return $self->{FILENAME};
}
-=pod
-
=item init
Does initialization required before this can be run. This includes open()ing
@@ -419,8 +403,6 @@
return $fd;
}
-=pod
-
=item mode
Returns the operator in terms of 'r', 'w', and 'a'. There is a state
@@ -569,14 +551,17 @@
my ( $saved_op, $saved_num ) =($IPC::Run::filter_op,$IPC::Run::filter_num);
$IPC::Run::filter_op = $self;
$IPC::Run::filter_num = -1;
- my $c = 0;
+ my $redos = 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;
+
+ # Detect Resource temporarily unavailable and re-try to a point (200 or 2 seconds), assuming select behaves (which it doesn't always? need ref)
+ if($@ && $@ =~ m/^Resource temporarily/ && $redos++ < 200) {
+ select(undef, undef, undef, 0.01);
+ redo;
+ }
}
( $IPC::Run::filter_op, $IPC::Run::filter_num ) = ( $saved_op, $saved_num );
$self->{HARNESS} = undef;
@@ -584,4 +569,16 @@
return $r;
}
+=back
+
+=head1 AUTHOR
+
+Barrie Slaymaker
+
+=head1 TODO
+
+Implement bidirectionality.
+
+=cut
+
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/lib/IPC/Run/Timer.pm new/IPC-Run-0.89/lib/IPC/Run/Timer.pm
--- old/IPC-Run-0.87/lib/IPC/Run/Timer.pm 2010-03-29 19:48:46.000000000 +0200
+++ new/IPC-Run-0.89/lib/IPC/Run/Timer.pm 2010-04-01 06:30:17.000000000 +0200
@@ -163,7 +163,7 @@
use Exporter;
use vars qw( $VERSION @ISA @EXPORT_OK %EXPORT_TAGS );
BEGIN {
- $VERSION = '0.87';
+ $VERSION = '0.89';
@ISA = qw( Exporter );
@EXPORT_OK = qw(
check
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/lib/IPC/Run/Win32Helper.pm new/IPC-Run-0.89/lib/IPC/Run/Win32Helper.pm
--- old/IPC-Run-0.87/lib/IPC/Run/Win32Helper.pm 2010-03-29 19:48:37.000000000 +0200
+++ new/IPC-Run-0.89/lib/IPC/Run/Win32Helper.pm 2010-04-01 06:30:21.000000000 +0200
@@ -24,7 +24,7 @@
use IO::Handle;
use vars qw{ $VERSION @ISA @EXPORT };
BEGIN {
- $VERSION = '0.87';
+ $VERSION = '0.89';
@ISA = qw( Exporter );
@EXPORT = qw(
win32_spawn
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/lib/IPC/Run/Win32IO.pm new/IPC-Run-0.89/lib/IPC/Run/Win32IO.pm
--- old/IPC-Run-0.87/lib/IPC/Run/Win32IO.pm 2010-03-29 19:49:20.000000000 +0200
+++ new/IPC-Run-0.89/lib/IPC/Run/Win32IO.pm 2010-04-01 06:30:26.000000000 +0200
@@ -31,7 +31,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.87';
+ $VERSION = '0.89';
}
use Socket qw( IPPROTO_TCP TCP_NODELAY );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/lib/IPC/Run/Win32Pump.pm new/IPC-Run-0.89/lib/IPC/Run/Win32Pump.pm
--- old/IPC-Run-0.87/lib/IPC/Run/Win32Pump.pm 2010-03-29 19:48:29.000000000 +0200
+++ new/IPC-Run-0.89/lib/IPC/Run/Win32Pump.pm 2010-04-01 06:30:29.000000000 +0200
@@ -29,7 +29,7 @@
use strict;
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.87';
+ $VERSION = '0.89';
}
use Win32API::File qw(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/lib/IPC/Run.pm new/IPC-Run-0.89/lib/IPC/Run.pm
--- old/IPC-Run-0.87/lib/IPC/Run.pm 2010-03-29 19:49:30.000000000 +0200
+++ new/IPC-Run-0.89/lib/IPC/Run.pm 2010-04-01 06:30:34.000000000 +0200
@@ -1013,7 +1013,7 @@
use Exporter ();
use vars qw{$VERSION @ISA @FILTER_IMP @FILTERS @API @EXPORT_OK %EXPORT_TAGS};
BEGIN {
- $VERSION = '0.87';
+ $VERSION = '0.89';
@ISA = qw{ Exporter };
## We use @EXPORT for the end user's convenience: there's only one function
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/t/98_pod.t new/IPC-Run-0.89/t/98_pod.t
--- old/IPC-Run-0.87/t/98_pod.t 2010-03-29 18:37:46.000000000 +0200
+++ new/IPC-Run-0.89/t/98_pod.t 2010-04-01 06:16:58.000000000 +0200
@@ -1,6 +1,33 @@
-#!perl -T
+#!/usr/bin/perl
+# Test that the syntax of our POD documentation is valid
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Pod::Simple 3.07',
+ 'Test::Pod 1.26',
+);
+
+# Don't run tests during end-user installs
use Test::More;
-eval "use Test::Pod 1.14";
-plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
+
all_pod_files_ok();
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/t/98_pod_coverage.t new/IPC-Run-0.89/t/98_pod_coverage.t
--- old/IPC-Run-0.87/t/98_pod_coverage.t 2010-03-29 18:44:04.000000000 +0200
+++ new/IPC-Run-0.89/t/98_pod_coverage.t 2010-04-01 06:19:29.000000000 +0200
@@ -1,10 +1,31 @@
-#!perl
+#!/usr/bin/perl
-use Test::More;
+# Test that the syntax of our POD documentation is valid
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+my @MODULES = (
+ 'Test::Pod::Coverage 1.04',
+);
-eval "use Test::Pod::Coverage 1.04";
-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+# Don't run tests during end-user installs
+use Test::More;
+unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
+ plan( skip_all => "Author tests not required for installation" );
+}
+# Load the testing modules
+foreach my $MODULE ( @MODULES ) {
+ eval "use $MODULE";
+ if ( $@ ) {
+ $ENV{RELEASE_TESTING}
+ ? die( "Failed to load required release-testing module $MODULE" )
+ : plan( skip_all => "$MODULE not available for testing" );
+ }
+}
plan tests => 7;
#my $private_subs = { private => [qr/foo_fizz/]};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.87/t/99_perl_minimum_version.t new/IPC-Run-0.89/t/99_perl_minimum_version.t
--- old/IPC-Run-0.87/t/99_perl_minimum_version.t 2010-03-29 18:35:44.000000000 +0200
+++ new/IPC-Run-0.89/t/99_perl_minimum_version.t 2010-04-01 06:16:58.000000000 +0200
@@ -1,7 +1,6 @@
#!/usr/bin/perl
# Test that our declared minimum Perl version matches our syntax
-
use strict;
BEGIN {
$| = 1;
@@ -13,7 +12,7 @@
'Test::MinimumVersion 0.008',
);
-# Don't run tests for installs
+# Don't run tests during end-user installs
use Test::More;
unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) {
plan( skip_all => "Author tests not required for installation" );
@@ -30,3 +29,5 @@
}
all_minimum_version_from_metayml_ok();
+
+1;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org
