commit perl-IPC-Run for openSUSE:Factory

26 Mar 2010

Hello community,

here is the log from the commit of package perl-IPC-Run for openSUSE:Factory
checked in at Fri Mar 26 16:54:06 CET 2010.



--------

--- perl-IPC-Run/perl-IPC-Run.changes	2010-01-10 16:03:52.000000000 +0100
+++ perl-IPC-Run/perl-IPC-Run.changes	2010-03-26 12:06:47.000000000 +0100
@@ -1,0 +2,11 @@
+Thu Mar 25 17:43:14 CET 2010 - anicka@suse.cz
+
+- update to 0.86
+  - Add all files to subversion for easier releases
+  - bump version on ALL files to 86
+  - Remove use UNIVERSAL. - RT 51509
+  - fix pod for Win32Helper - RT 51695
+  - Better PATHEXT logic bug if cmd_name contains periods - RT 50739
+  - Enhance tests for run.t for better diagnostics - RT 47630
+
+-------------------------------------------------------------------

calling whatdependson for head-i586


Old:
----
  IPC-Run-0.84-path.diff
  IPC-Run-0.84.tar.bz2

New:
----
  IPC-Run-0.86-path.diff
  IPC-Run-0.86.tar.bz2

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-IPC-Run.spec ++++++
--- /var/tmp/diff_new_pack.DtNN6E/_old	2010-03-26 16:53:11.000000000 +0100
+++ /var/tmp/diff_new_pack.DtNN6E/_new	2010-03-26 16:53:11.000000000 +0100
@@ -1,5 +1,5 @@
 #
-# spec file for package perl-IPC-Run (Version 0.84)
+# spec file for package perl-IPC-Run (Version 0.86)
 #
 # Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
@@ -19,8 +19,8 @@
 
 
 Name:           perl-IPC-Run
-Version:        0.84
-Release:        2
+Version:        0.86
+Release:        1
 Requires:       perl = %{perl_version}
 AutoReqProv:    on
 Group:          Development/Libraries/Perl
@@ -34,7 +34,7 @@
 %description
 IPC::Run allows you run and interact with child processes using files,
 pipes, and pseudo-ttys.  Both system()-style and scripted usages are
-supported and may be mixed. Like�wise, functional and OO API styles are
+supported and may be mixed. Like-wise, functional and OO API styles are
 both supported and may be mixed.
 
 Authors: Barrie Slaymaker <barries@slaysys.com>
@@ -54,6 +54,8 @@
 make %{?_smp_mflags}
 #run.t sometimes fails with "Resource temporarily unavailable" 
 mv t/run.t t/run.tt
+
+%check
 make test
 
 %install

++++++ IPC-Run-0.84-path.diff -> IPC-Run-0.86-path.diff ++++++

++++++ IPC-Run-0.84.tar.bz2 -> IPC-Run-0.86.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/Changes new/IPC-Run-0.86/Changes
--- old/IPC-Run-0.84/Changes	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/Changes	2010-03-24 20:45:51.000000000 +0100
@@ -1,5 +1,15 @@
 Revision history for Perl extension IPC::Run
 
+0.86 Wed 24 Mar 2010
+  - Add all files to subversion for easier releases
+  - bump version on ALL files to 86
+
+0.85 Mon 22 Mar 2010
+  - Remove use UNIVERSAL. - RT 51509
+  - fix pod for Win32Helper - RT 51695
+  - Better PATHEXT logic bug if cmd_name contains periods - RT 50739
+  - Enhance tests for run.t for better diagnostics - RT 47630
+
 0.84 Mon 13 Jul 2009
 	- Add darwin to the list of known-bad platforms
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/MANIFEST new/IPC-Run-0.86/MANIFEST
--- old/IPC-Run-0.84/MANIFEST	2009-07-13 02:59:15.000000000 +0200
+++ new/IPC-Run-0.86/MANIFEST	2010-03-24 20:45:51.000000000 +0100
@@ -39,6 +39,7 @@
 t/signal.t
 t/timeout.t
 t/timer.t
+t/windows_search_path.t
 t/win32_compile.t
 TODO
 META.yml                                 Module meta-data (added by MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/META.yml new/IPC-Run-0.86/META.yml
--- old/IPC-Run-0.84/META.yml	2009-07-13 02:59:14.000000000 +0200
+++ new/IPC-Run-0.86/META.yml	2010-03-24 21:09:01.000000000 +0100
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               IPC-Run
-version:            0.84
+version:            0.86
 abstract:           system() and background procs w/ piping, redirs, ptys (Unix, Win32)
 author:  []
 license:            unknown
@@ -9,14 +9,25 @@
     ExtUtils::MakeMaker:  0
 build_requires:
     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
+    license:     http://dev.perl.org/licenses/
+    repository:  http://svn.ali.as/cpan/trunk/IPC-Run
 no_index:
     directory:
         - t
         - inc
-generated_by:       ExtUtils::MakeMaker version 6.50
+generated_by:       ExtUtils::MakeMaker version 6.56
 meta-spec:
     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
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/Makefile.PL new/IPC-Run-0.86/Makefile.PL
--- old/IPC-Run-0.84/Makefile.PL	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/Makefile.PL	2010-03-24 20:59:46.000000000 +0100
@@ -46,14 +46,34 @@
 	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,
+	    },
+	    build_requires => {
+		'Test::More' => 0,  # For testing
+	    },
+	    resources => {
+		license => 'http://dev.perl.org/licenses/',
+#            homepage => 'http://',
+		bugtracker => 'https://rt.cpan.org/NoAuth/Bugs.html?Dist=IPC-Run',
+		repository => 'http://svn.ali.as/cpan/trunk/IPC-Run',
+#            MailingList => 'http://groups.google.com/group/IPC-Run',
+	    }
+	});
+	  
 
 sub MY::libscan {
 	package MY;
 	my $self = shift;
 	my ($path) = @_;
-	return '' if /\.sw[a-z]$/;
+	return '' if $path =~ m/\.sw[a-z]\z/msx;
 	return '' unless length $self->SUPER::libscan($path);
 	return $path;
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/lib/IPC/Run/Debug.pm new/IPC-Run-0.86/lib/IPC/Run/Debug.pm
--- old/IPC-Run-0.84/lib/IPC/Run/Debug.pm	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/lib/IPC/Run/Debug.pm	2010-03-24 20:45:53.000000000 +0100
@@ -70,7 +70,7 @@
 use Exporter;
 use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS};
 BEGIN {
-	$VERSION = '0.84';
+	$VERSION = '0.86';
 	@ISA     = qw( Exporter );
 	@EXPORT  = qw(
 		_debug
@@ -118,7 +118,6 @@
 STUBS
 
 use POSIX;
-use UNIVERSAL qw( isa );
 
 sub _map_fds {
    my $map = '';
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/lib/IPC/Run/IO.pm new/IPC-Run-0.86/lib/IPC/Run/IO.pm
--- old/IPC-Run-0.84/lib/IPC/Run/IO.pm	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/lib/IPC/Run/IO.pm	2010-03-24 20:45:53.000000000 +0100
@@ -76,14 +76,13 @@
 use Carp;
 use Fcntl;
 use Symbol;
-use UNIVERSAL ();
 
 use IPC::Run::Debug;
 use IPC::Run qw( Win32_MODE );
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '0.84';
+	$VERSION = '0.86';
 	if ( Win32_MODE ) {
 		eval "use IPC::Run::Win32Helper; require IPC::Run::Win32IO; 1"
 		or ( $@ && die ) or die "$!";
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/lib/IPC/Run/Timer.pm new/IPC-Run-0.86/lib/IPC/Run/Timer.pm
--- old/IPC-Run-0.84/lib/IPC/Run/Timer.pm	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/lib/IPC/Run/Timer.pm	2010-03-24 20:45:53.000000000 +0100
@@ -163,7 +163,7 @@
 use Exporter;
 use vars qw( $VERSION @ISA @EXPORT_OK %EXPORT_TAGS );
 BEGIN {
-	$VERSION   = '0.84';
+	$VERSION   = '0.86';
 	@ISA       = qw( Exporter );
 	@EXPORT_OK = qw(
 		check
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/lib/IPC/Run/Win32Helper.pm new/IPC-Run-0.86/lib/IPC/Run/Win32Helper.pm
--- old/IPC-Run-0.84/lib/IPC/Run/Win32Helper.pm	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/lib/IPC/Run/Win32Helper.pm	2010-03-24 20:45:53.000000000 +0100
@@ -24,7 +24,7 @@
 use IO::Handle;
 use vars qw{ $VERSION @ISA @EXPORT };
 BEGIN {
-	$VERSION = '0.84';
+	$VERSION = '0.86';
 	@ISA = qw( Exporter );
 	@EXPORT = qw(
 		win32_spawn
@@ -103,7 +103,7 @@
 to a scalar or subroutine with or without filters, but only if
 the child in question closes its inputs or takes input from 
 unfiltered SCALARs or named files.  Normally, a child inherits its STDIN
-from its parent; to close it, use "0<&-" or the C<noinherit => 1> option.
+from its parent; to close it, use "0<&-" or the C<< noinherit => 1 >> option.
 If data is sent to the child from CODE refs, filehandles or from
 scalars through filters than the child's outputs will not be optimized
 because C<optimize()> assumes the parent is interacting with the child.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/lib/IPC/Run/Win32IO.pm new/IPC-Run-0.86/lib/IPC/Run/Win32IO.pm
--- old/IPC-Run-0.84/lib/IPC/Run/Win32IO.pm	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/lib/IPC/Run/Win32IO.pm	2010-03-24 20:45:53.000000000 +0100
@@ -31,7 +31,7 @@
 
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '0.84';
+	$VERSION = '0.86';
 }
 
 use Socket qw( IPPROTO_TCP TCP_NODELAY );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/lib/IPC/Run/Win32Pump.pm new/IPC-Run-0.86/lib/IPC/Run/Win32Pump.pm
--- old/IPC-Run-0.84/lib/IPC/Run/Win32Pump.pm	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/lib/IPC/Run/Win32Pump.pm	2010-03-24 20:45:53.000000000 +0100
@@ -29,7 +29,7 @@
 use strict;
 use vars qw{$VERSION};
 BEGIN {
-	$VERSION = '0.84';
+	$VERSION = '0.86';
 }
 
 use Win32API::File qw(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/lib/IPC/Run.pm new/IPC-Run-0.86/lib/IPC/Run.pm
--- old/IPC-Run-0.84/lib/IPC/Run.pm	2009-07-13 02:57:41.000000000 +0200
+++ new/IPC-Run-0.86/lib/IPC/Run.pm	2010-03-24 20:45:53.000000000 +0100
@@ -1011,7 +1011,7 @@
 use Exporter ();
 use vars qw{$VERSION @ISA @FILTER_IMP @FILTERS @API @EXPORT_OK %EXPORT_TAGS};
 BEGIN {
-	$VERSION = '0.84';
+	$VERSION = '0.86';
 	@ISA     = qw{ Exporter };
 
 	## We use @EXPORT for the end user's convenience: there's only one function
@@ -1149,12 +1149,16 @@
 
    if ( Win32_MODE
       && ( $cmd_name =~ /$dirsep/ )
-      && ( $cmd_name !~ /\..+$/ )  ## Only run if cmd_name has no extension?
+#      && ( $cmd_name !~ /\..+$/ )  ## Only run if cmd_name has no extension?
+      && ( $cmd_name !~ m!\.[^\\/\.]+$! )
     ) {
+
+      _debug "no extension(.exe), checking ENV{PATHEXT}"  if _debugging;
       for ( split /;/, $ENV{PATHEXT} || ".COM;.BAT;.EXE" ) {
          my $name = "$cmd_name$_";
          $cmd_name = $name, last if -f $name && -x _;
       }
+      _debug "cmd_name is now '$cmd_name'"  if _debugging;
    }
 
    if ( $cmd_name =~ /($dirsep)/ ) {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/t/run.t new/IPC-Run-0.86/t/run.t
--- old/IPC-Run-0.84/t/run.t	2009-07-13 02:57:42.000000000 +0200
+++ new/IPC-Run-0.86/t/run.t	2010-03-24 20:45:52.000000000 +0100
@@ -119,11 +119,15 @@
 }
 
 sub eok {
-   my ( $got, $exp ) = ( shift, shift );
+   my ( $got, $exp, $name ) = @_;
    $got =~ s/([\000-\037])/sprintf "\\0x%02x", ord $1/ge if defined $exp;
    $exp =~ s/([\000-\037])/sprintf "\\0x%02x", ord $1/ge if defined $exp;
-   @_ = ( $got, $exp, @_ );
-   goto &is;
+
+   my($pack, $file, $line) = caller();
+   $name ||= qq[eok at $file line $line];
+
+   local $Test::Builder::Level = $Test::Builder::Level + 1;
+   return is( $got, $exp, $name );
 }
 
 my $r;
@@ -288,7 +292,7 @@
 is( _map_fds, $fd_map );
 
 is( length $out, 20000 );
-ok( $out !~ /[^-]/ );
+unlike( $out, qr/[^-]/ );
 
 
 ##
@@ -301,7 +305,7 @@
    $in = "\n";
    $out = "";
    pump $h until length $out;
-   ok $out eq "\n";
+   is $out, "\n";
 
 
 
@@ -321,7 +325,7 @@
    $x = $@ if $ok_1 && ! $ok_2;
 
    if ( $ok_1 && $ok_2 ) {
-      ok $long_string eq $out;
+      is $long_string, $out;
    }
    else {
        $x =~ s/(x+)/sprintf "...%d \"x\" chars...", length $1/e;
@@ -607,12 +611,7 @@
    eval {
       $r = run \@perl, ">$out_file", "<$bad_file";
    };
-   if ( $@ =~ /\Q$bad_file\E/ ) {
-      ok 1;
-   }
-   else {
-      is $@, "qr/\Q$bad_file\E/";
-   }
+   like $@, qr/\Q$bad_file\E/;
 is( _map_fds, $fd_map );
 
 ##
@@ -686,7 +685,7 @@
    ok( $r );
 ok( ! $? );
 is( _map_fds, $fd_map );
-$out =~ /(?:$text){2}/i ? ok 1 : is $out, "qr/($text){2}/i";
+like $out, qr/(?:$text){2}/i;
 eok( $err, '' );
 
 ##
@@ -700,7 +699,7 @@
 ok( ! $? );
 is( _map_fds, $fd_map );
 
-ok( $out =~ qr/(?:$text){2}/i );
+like $out, qr/(?:$text){2}/i;
 
 ##
 ## Non-zero exit value, command with args, no redirects.
@@ -787,19 +786,19 @@
    ok( $r );
 ok( ! $? );
 is( _map_fds, $fd_map );
-ok( $out =~ qr/^(?:HELLO World\n|Hello world\n){2}\z/s );
-ok( $err =~ qr/^(?:[12]:Hello World.*){2}\z/s );
+like $out, qr/^(?:HELLO World\n|Hello world\n){2}$/s;
+like $err, qr/^(?:[12]:Hello World.*){2}$/s;
 
 ##
 ## A few error cases...
 ##
    eval { $r = run \@perl, '<', [], [] };
-   ok( $@ =~ qr/not allowed/ );
+   like( $@, qr/not allowed/ );
    eval { $r = run \@perl, '>', [], [] };
-   ok( $@ =~ qr/not allowed/ );
+   like( $@, qr/not allowed/ );
    foreach my $foo ( qw( | & < > >& 1>&2 >file <file 2<&1 <&- 3<&- ) ) {
       eval { $r = run $foo, [] };
-      ok( $@ =~ qr/command/ );
+      like( $@, qr/command/ );
    }
    $out = 'REPLACE ME';
    $err = 'REPLACE ME';
@@ -844,7 +843,7 @@
       [ @perl, '-pe', 'BEGIN { $| = 1 } print STDERR uc($_)' ],
       \$in, \$out, \$err,
    );
-   ok( $h->isa('IPC::Run') );
+   isa_ok( $h, 'IPC::Run' );
 is( $?, 99 );
 
 eok( $in,  'SHOULD BE UNCHANGED' );
@@ -855,7 +854,7 @@
    $in  = '';
    $? = 0;
    pump_nb $h for ( 1..100 );
-   ok( 1 );
+   pass( "after pump_nb" );
 eok( $in, '' );
 eok( $out, '' );
 eok( $err, '' );
@@ -864,7 +863,7 @@
    $in  = $text;
    $? = 0;
    pump $h until $out =~ /Hello World/;
-   ok( 1 );
+   pass("after pump");
 ok( ! $? );
 eok( $in, '' );
 eok( $out, $text );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/IPC-Run-0.84/t/windows_search_path.t new/IPC-Run-0.86/t/windows_search_path.t
--- old/IPC-Run-0.84/t/windows_search_path.t	1970-01-01 01:00:00.000000000 +0100
+++ new/IPC-Run-0.86/t/windows_search_path.t	2010-03-24 20:45:52.000000000 +0100
@@ -0,0 +1,51 @@
+#!perl -w
+
+use strict;
+use warnings;
+
+use Test::More tests => 11;
+use IPC::Run;
+
+{
+    no warnings;
+    sub IPC::Run::Win32_MODE {1}
+}
+
+is(IPC::Run::Win32_MODE, 1, "We're win32 mode?");
+$^O = 'Win32';
+
+# Proves that files in subdirs with . still work.
+mkdir '5.11.5';
+my @tests = qw(
+		./temp ./temp.EXE
+		.\\temp .\\temp.EXE
+		./5.11.5/temp ./5.11.5/temp.EXE
+        ./5.11.5/temp ./5.11.5/temp.BAT
+        ./5.11.5/temp ./5.11.5/temp.COM
+        
+	     );
+
+while(@tests) {
+    my $path = shift @tests;
+    my $result = shift @tests;
+    
+    touch($result);
+    my $got = eval { IPC::Run::_search_path($path) }; 
+    is($@, '', "No error calling _search_path for '$path'");
+    is($got, $result, "Executable $result found");
+    unlink $result;
+}
+
+exit;
+
+sub touch {
+    my $file = shift;
+    open(FH, ">$file") or die;
+    print FH 1 or die;
+    close FH or die;
+    chmod(0700, $file) or die;
+}
+
+sub END {
+    rmdir('5.11.5');
+}
\ No newline at end of file


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



Remember to have fun...

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org

    

root＠Hilbert.suse.de

tags

participants (1)