Hello community, here is the log from the commit of package perl-IPC-Run for openSUSE:Factory checked in at Wed Mar 31 19:37:44 CEST 2010. -------- --- perl-IPC-Run/perl-IPC-Run.changes 2010-03-26 12:06:47.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl-IPC-Run/perl-IPC-Run.changes 2010-03-30 18:36:09.000000000 +0200 @@ -1,0 +2,11 @@ +Tue Mar 30 18:17:06 CEST 2010 - anicka@suse.cz + +- update to 0.87 + * Add doc type fixes - RT 56030 from carnil (Debian) + * Remove reccommends for AUTHOR only modules + * add pod_coverage and simplify pod test. + * document undocumented public subs with TODO and + best guess as to what they do. + * Explicity recommend IO::Pty version number 1.08 + +------------------------------------------------------------------- calling whatdependson for head-i586 Old: ---- IPC-Run-0.86-path.diff IPC-Run-0.86.tar.bz2 New: ---- IPC-Run-0.87-path.diff IPC-Run-0.87.tar.bz2 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-IPC-Run.spec ++++++ --- /var/tmp/diff_new_pack.S2LO3n/_old 2010-03-31 19:37:31.000000000 +0200 +++ /var/tmp/diff_new_pack.S2LO3n/_new 2010-03-31 19:37:31.000000000 +0200 @@ -1,5 +1,5 @@ # -# spec file for package perl-IPC-Run (Version 0.86) +# spec file for package perl-IPC-Run (Version 0.87) # # Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany. # @@ -19,7 +19,7 @@ Name: perl-IPC-Run -Version: 0.86 +Version: 0.87 Release: 1 Requires: perl = %{perl_version} AutoReqProv: on ++++++ IPC-Run-0.86-path.diff -> IPC-Run-0.87-path.diff ++++++ ++++++ IPC-Run-0.86.tar.bz2 -> IPC-Run-0.87.tar.bz2 ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/Changes new/IPC-Run-0.87/Changes --- old/IPC-Run-0.86/Changes 2010-03-24 20:45:51.000000000 +0100 +++ new/IPC-Run-0.87/Changes 2010-03-29 20:00:00.000000000 +0200 @@ -1,5 +1,12 @@ Revision history for Perl extension IPC::Run +0.87 Mon 29 Mar 2010 + - Add doc type fixes - RT 56030 from carnil (Debian) + - Remove reccommends for AUTHOR only modules + - add pod_coverage and simplify pod test. + - document undocumented public subs with TODO and best guess as to what they do. + - Explicity recommend IO::Pty version number 1.08 + 0.86 Wed 24 Mar 2010 - Add all files to subversion for easier releases - bump version on ALL files to 86 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/MANIFEST new/IPC-Run-0.87/MANIFEST --- old/IPC-Run-0.86/MANIFEST 2010-03-24 20:45:51.000000000 +0100 +++ new/IPC-Run-0.87/MANIFEST 2010-03-29 19:45:53.000000000 +0200 @@ -23,7 +23,8 @@ README t/97_meta.t t/98_pod.t -t/99_pmv.t +t/98_pod_coverage.t +t/99_perl_minimum_version.t t/adopt.t t/binmode.t t/bogus.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/META.yml new/IPC-Run-0.87/META.yml --- old/IPC-Run-0.86/META.yml 2010-03-24 21:09:01.000000000 +0100 +++ new/IPC-Run-0.87/META.yml 2010-03-29 20:01:51.000000000 +0200 @@ -1,9 +1,9 @@ --- #YAML:1.0 name: IPC-Run -version: 0.86 +version: 0.87 abstract: system() and background procs w/ piping, redirs, ptys (Unix, Win32) author: [] -license: unknown +license: perl distribution_type: module configure_requires: ExtUtils::MakeMaker: 0 @@ -25,9 +25,4 @@ url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 recommends: - IO::Pty: 0 - Perl::MinimumVersion: 0 - Pod::Simple: 0 - Test::CPAN::Meta: 0 - Test::MinimumVersion: 0 - Test::Pod: 0 + IO::Pty: 1.08 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/Makefile.PL new/IPC-Run-0.87/Makefile.PL --- old/IPC-Run-0.86/Makefile.PL 2010-03-24 20:59:46.000000000 +0100 +++ new/IPC-Run-0.87/Makefile.PL 2010-03-29 19:58:30.000000000 +0200 @@ -43,18 +43,14 @@ NAME => 'IPC::Run', ABSTRACT => 'system() and background procs w/ piping, redirs, ptys (Unix, Win32)', VERSION_FROM => 'lib/IPC/Run.pm', + ($ExtUtils::MakeMaker::VERSION >= 6.3002 ? ('LICENSE' => 'perl', ) : ()), PREREQ_PM => { Test::More => '0.47', %PREREQ_PM, }, META_MERGE => { recommends => { - 'Test::CPAN::Meta' => 0, - 'Pod::Simple' => 0, - 'Test::Pod' => 0, - 'Perl::MinimumVersion' => 0, - 'Test::MinimumVersion' => 0, - 'IO::Pty' => 0, + 'IO::Pty' => '1.08', }, build_requires => { 'Test::More' => 0, # For testing diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/lib/IPC/Run/Debug.pm new/IPC-Run-0.87/lib/IPC/Run/Debug.pm --- old/IPC-Run-0.86/lib/IPC/Run/Debug.pm 2010-03-24 20:45:53.000000000 +0100 +++ new/IPC-Run-0.87/lib/IPC/Run/Debug.pm 2010-03-29 19:49:27.000000000 +0200 @@ -25,7 +25,7 @@ =head1 DESCRIPTION Controls IPC::Run debugging. Debugging levels are now set by using words, -but the numbers shown are still supported for backwards compatability: +but the numbers shown are still supported for backwards compatibility: 0 none disabled (special, see below) 1 basic what's running @@ -70,7 +70,7 @@ use Exporter; use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS}; BEGIN { - $VERSION = '0.86'; + $VERSION = '0.87'; @ISA = qw( Exporter ); @EXPORT = qw( _debug diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/lib/IPC/Run/IO.pm new/IPC-Run-0.87/lib/IPC/Run/IO.pm --- old/IPC-Run-0.86/lib/IPC/Run/IO.pm 2010-03-24 20:45:53.000000000 +0100 +++ new/IPC-Run-0.87/lib/IPC/Run/IO.pm 2010-03-29 19:48:41.000000000 +0200 @@ -48,7 +48,7 @@ =head1 DESCRIPTION This class and module allows filehandles and filenames to be harnessed for -I/O when used IPC::Run, independant of anything else IPC::Run is doing +I/O when used IPC::Run, independent of anything else IPC::Run is doing (except that errors & exceptions can affect all things that IPC::Run is doing). @@ -82,7 +82,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '0.86'; + $VERSION = '0.87'; if ( Win32_MODE ) { eval "use IPC::Run::Win32Helper; require IPC::Run::Win32IO; 1" or ( $@ && die ) or die "$!"; @@ -92,6 +92,20 @@ sub _empty($); *_empty = \&IPC::Run::_empty; +=pod + +=over + +=over + +=item new + +TODO: Needs more thorough documentation. Patches welcome. + +I think it takes >> or << along with some other data. + +=cut + sub new { my $class = shift; $class = ref $class || $class; @@ -219,8 +233,6 @@ return $self; } -=pod - =over =item filename @@ -311,7 +323,7 @@ =item open_pipe If this is a redirection IO object, this opens the pipe in a platform -independant manner. +independent manner. =cut @@ -516,6 +528,13 @@ push @{$self->{FBUFS}}, $self->{SOURCE}; } +=item poll + +TODO: Needs confirmation that this is correct. Was previously undocumented. + +I believe this is polling the IO for new input and then returns undef if there will never be any more input, 0 if there is none now, but there might be in the future, and TRUE if more input was gotten. + +=cut sub poll { my IPC::Run::IO $self = shift; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/lib/IPC/Run/Timer.pm new/IPC-Run-0.87/lib/IPC/Run/Timer.pm --- old/IPC-Run-0.86/lib/IPC/Run/Timer.pm 2010-03-24 20:45:53.000000000 +0100 +++ new/IPC-Run-0.87/lib/IPC/Run/Timer.pm 2010-03-29 19:48:46.000000000 +0200 @@ -163,7 +163,7 @@ use Exporter; use vars qw( $VERSION @ISA @EXPORT_OK %EXPORT_TAGS ); BEGIN { - $VERSION = '0.86'; + $VERSION = '0.87'; @ISA = qw( Exporter ); @EXPORT_OK = qw( check @@ -658,6 +658,8 @@ Note: Setting the state to 'undef' to expire a timer will not throw an exception. +=back + =cut sub state { @@ -675,8 +677,6 @@ =pod -=back - =head1 TODO use Time::HiRes; if it's present. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/lib/IPC/Run/Win32Helper.pm new/IPC-Run-0.87/lib/IPC/Run/Win32Helper.pm --- old/IPC-Run-0.86/lib/IPC/Run/Win32Helper.pm 2010-03-24 20:45:53.000000000 +0100 +++ new/IPC-Run-0.87/lib/IPC/Run/Win32Helper.pm 2010-03-29 19:48:37.000000000 +0200 @@ -24,7 +24,7 @@ use IO::Handle; use vars qw{ $VERSION @ISA @EXPORT }; BEGIN { - $VERSION = '0.86'; + $VERSION = '0.87'; @ISA = qw( Exporter ); @EXPORT = qw( win32_spawn diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/lib/IPC/Run/Win32IO.pm new/IPC-Run-0.87/lib/IPC/Run/Win32IO.pm --- old/IPC-Run-0.86/lib/IPC/Run/Win32IO.pm 2010-03-24 20:45:53.000000000 +0100 +++ new/IPC-Run-0.87/lib/IPC/Run/Win32IO.pm 2010-03-29 19:49:20.000000000 +0200 @@ -31,7 +31,7 @@ use vars qw{$VERSION}; BEGIN { - $VERSION = '0.86'; + $VERSION = '0.87'; } use Socket qw( IPPROTO_TCP TCP_NODELAY ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/lib/IPC/Run/Win32Pump.pm new/IPC-Run-0.87/lib/IPC/Run/Win32Pump.pm --- old/IPC-Run-0.86/lib/IPC/Run/Win32Pump.pm 2010-03-24 20:45:53.000000000 +0100 +++ new/IPC-Run-0.87/lib/IPC/Run/Win32Pump.pm 2010-03-29 19:48:29.000000000 +0200 @@ -29,7 +29,7 @@ use strict; use vars qw{$VERSION}; BEGIN { - $VERSION = '0.86'; + $VERSION = '0.87'; } use Win32API::File qw( diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/lib/IPC/Run.pm new/IPC-Run-0.87/lib/IPC/Run.pm --- old/IPC-Run-0.86/lib/IPC/Run.pm 2010-03-24 20:45:53.000000000 +0100 +++ new/IPC-Run-0.87/lib/IPC/Run.pm 2010-03-29 19:49:30.000000000 +0200 @@ -112,7 +112,7 @@ =head1 DESCRIPTION -IPC::Run allows you run and interact with child processes using files, pipes, +IPC::Run allows you to run and interact with child processes using files, pipes, and pseudo-ttys. Both system()-style and scripted usages are supported and may be mixed. Likewise, functional and OO API styles are both supported and may be mixed. @@ -1005,13 +1005,15 @@ =head1 ROUTINES +=over + =cut use strict; use Exporter (); use vars qw{$VERSION @ISA @FILTER_IMP @FILTERS @API @EXPORT_OK %EXPORT_TAGS}; BEGIN { - $VERSION = '0.86'; + $VERSION = '0.87'; @ISA = qw{ Exporter }; ## We use @EXPORT for the end user's convenience: there's only one function @@ -1531,10 +1533,10 @@ Sends a C<TERM>, waits for all children to exit for up to 30 seconds, then sends a C<KILL> to any that survived the C<TERM>. -Will wait for up to 30 more seconds for the OS to sucessfully C<KILL> the +Will wait for up to 30 more seconds for the OS to successfully C<KILL> the processes. -The 30 seconds may be overriden by setting the C<grace> option, this +The 30 seconds may be overridden by setting the C<grace> option, this overrides both timers. The harness is then cleaned up. @@ -2862,10 +2864,13 @@ return $self; } +=item adopt + +Experimental feature. NOT FUNCTIONAL YET, NEED TO CLOSE FDS BETTER IN CHILDREN. SEE t/adopt.t for a test suite. + +=cut sub adopt { - ## NOT FUNCTIONAL YET, NEED TO CLOSE FDS BETTER IN CHILDREN. SEE - ## t/adopt.t for a test suite. my IPC::Run $self = shift; for my $adoptee ( @_ ) { @@ -3609,6 +3614,8 @@ =back +=back + =head1 FILTERS These filters are used to modify input our output between a child @@ -3751,6 +3758,16 @@ }; } +=item new_string_source + +TODO: Needs confirmation. Was previously undocumented. in this module. + +This is a filter which is exportable. Returns a sub which appends the data passed in to the output buffer and returns 1 if data was appended. 0 if it was an empty string and undef if no data was passed. + +NOTE: Any additional variables passed to new_string_source will be passed to the sub every time it's called and appended to the output. + +=cut + sub new_string_source { my $ref; @@ -3787,6 +3804,13 @@ } } +=item new_string_sink + +TODO: Needs confirmation. Was previously undocumented. + +This is a filter which is exportable. Returns a sub which pops the data out of the input stream and pushes it onto the string. + +=cut sub new_string_sink { my ( $string_ref ) = @_; @@ -4094,7 +4118,7 @@ gets replaced with /dev/fd or the name of a temporary file containing foo's output. This is like <(sub_cmd ...) found in bash and csh (IIRC). -Allow multiple harnesses to be combined as independant sets of processes +Allow multiple harnesses to be combined as independent sets of processes in to one 'meta-harness'. Allow a harness to be passed in place of an \@cmd. This would allow diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/t/98_pod.t new/IPC-Run-0.87/t/98_pod.t --- old/IPC-Run-0.86/t/98_pod.t 2010-03-24 20:45:52.000000000 +0100 +++ new/IPC-Run-0.87/t/98_pod.t 2010-03-29 18:37:46.000000000 +0200 @@ -1,32 +1,6 @@ -#!/usr/bin/perl +#!perl -T -# 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 for 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" ); - } -} - +eval "use Test::Pod 1.14"; +plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; all_pod_files_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/t/98_pod_coverage.t new/IPC-Run-0.87/t/98_pod_coverage.t --- old/IPC-Run-0.86/t/98_pod_coverage.t 1970-01-01 01:00:00.000000000 +0100 +++ new/IPC-Run-0.87/t/98_pod_coverage.t 2010-03-29 18:44:04.000000000 +0200 @@ -0,0 +1,19 @@ +#!perl + +use Test::More; + +eval "use Test::Pod::Coverage 1.04"; +plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; + +plan tests => 7; + +#my $private_subs = { private => [qr/foo_fizz/]}; +#pod_coverage_ok('IPC::Run', $private_subs, "Test IPC::Run that all modules are documented."); + +pod_coverage_ok('IPC::Run' , "Test IPC::Run that all modules are documented."); +pod_coverage_ok('IPC::Run::Debug' , "Test IPC::Run::Debug that all modules are documented."); +pod_coverage_ok('IPC::Run::IO' , "Test IPC::Run::IO that all modules are documented."); +pod_coverage_ok('IPC::Run::Timer' , "Test IPC::Run::Timer that all modules are documented."); +pod_coverage_ok('IPC::Run::Win32Helper', "Test IPC::Run::Win32Helper that all modules are documented."); +pod_coverage_ok('IPC::Run::Win32IO' , "Test IPC::Run::Win32IO that all modules are documented."); +pod_coverage_ok('IPC::Run::Win32Pump' , "Test IPC::Run::Win32Pump that all modules are documented."); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/t/99_perl_minimum_version.t new/IPC-Run-0.87/t/99_perl_minimum_version.t --- old/IPC-Run-0.86/t/99_perl_minimum_version.t 1970-01-01 01:00:00.000000000 +0100 +++ new/IPC-Run-0.87/t/99_perl_minimum_version.t 2010-03-29 18:35:44.000000000 +0200 @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +# Test that our declared minimum Perl version matches our syntax + +use strict; +BEGIN { + $| = 1; + $^W = 1; +} + +my @MODULES = ( + 'Perl::MinimumVersion 1.20', + 'Test::MinimumVersion 0.008', +); + +# Don't run tests for 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" ); + } +} + +all_minimum_version_from_metayml_ok(); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.86/t/99_pmv.t new/IPC-Run-0.87/t/99_pmv.t --- old/IPC-Run-0.86/t/99_pmv.t 2010-03-24 20:45:52.000000000 +0100 +++ new/IPC-Run-0.87/t/99_pmv.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,32 +0,0 @@ -#!/usr/bin/perl - -# Test that our declared minimum Perl version matches our syntax - -use strict; -BEGIN { - $| = 1; - $^W = 1; -} - -my @MODULES = ( - 'Perl::MinimumVersion 1.20', - 'Test::MinimumVersion 0.008', -); - -# Don't run tests for 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" ); - } -} - -all_minimum_version_from_metayml_ok(); ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org