Hello community, here is the log from the commit of package perl-File-Rsync for openSUSE:Factory checked in at 2016-03-17 16:34:10 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-File-Rsync (Old) and /work/SRC/openSUSE:Factory/.perl-File-Rsync.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Rsync" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-File-Rsync/perl-File-Rsync.changes 2015-09-24 06:16:20.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-File-Rsync.new/perl-File-Rsync.changes 2016-03-17 16:47:42.000000000 +0100 @@ -1,0 +2,15 @@ +Fri Mar 11 10:07:35 UTC 2016 - [email protected] + +- updated to 0.49 + see /usr/share/doc/packages/perl-File-Rsync/Changelog + + Thu Mar 10 07:52:24 CST 2016 ( leakin at japh dot net ) + + * version 0.49: fix infun, broken since 0.46 refactor + + Michal Krupicka ( Michal dot Krupicka at skoda-auto dot cz ) reported + that I broke the the input function (it worked differently from 0.45 + and the documentation) when I converted to using IPC::Run3. This restores + compatability with 0.45. Thanks Michal. + +------------------------------------------------------------------- Old: ---- File-Rsync-0.48.tar.gz New: ---- File-Rsync-0.49.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-File-Rsync.spec ++++++ --- /var/tmp/diff_new_pack.NbGhEp/_old 2016-03-17 16:47:43.000000000 +0100 +++ /var/tmp/diff_new_pack.NbGhEp/_new 2016-03-17 16:47:43.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-File-Rsync # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-File-Rsync -Version: 0.48 +Version: 0.49 Release: 0 %define cpan_name File-Rsync Summary: Perl Module Interface to Rsync(1) F<Http://Rsync.Samba.Org/Rsync/> ++++++ File-Rsync-0.48.tar.gz -> File-Rsync-0.49.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Rsync-0.48/Changelog new/File-Rsync-0.49/Changelog --- old/File-Rsync-0.48/Changelog 2015-09-21 23:00:34.000000000 +0200 +++ new/File-Rsync-0.49/Changelog 2016-03-10 14:59:12.000000000 +0100 @@ -1,3 +1,12 @@ +Thu Mar 10 07:52:24 CST 2016 ( leakin at japh dot net ) + + * version 0.49: fix infun, broken since 0.46 refactor + + Michal Krupicka ( Michal dot Krupicka at skoda-auto dot cz ) reported + that I broke the the input function (it worked differently from 0.45 + and the documentation) when I converted to using IPC::Run3. This restores + compatability with 0.45. Thanks Michal. + Mon Sep 21 15:58:35 CDT 2015 ( leakin at dfw dot nostrum dot com ) * version 0.48: fix list option parsing diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Rsync-0.48/META.json new/File-Rsync-0.49/META.json --- old/File-Rsync-0.48/META.json 2015-09-21 23:03:06.000000000 +0200 +++ new/File-Rsync-0.49/META.json 2016-03-10 15:07:07.000000000 +0100 @@ -40,6 +40,6 @@ } }, "release_status" : "stable", - "version" : "0.48", + "version" : "0.49", "x_serialization_backend" : "JSON::PP version 2.27200" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Rsync-0.48/META.yml new/File-Rsync-0.49/META.yml --- old/File-Rsync-0.48/META.yml 2015-09-21 23:03:06.000000000 +0200 +++ new/File-Rsync-0.49/META.yml 2016-03-10 15:07:07.000000000 +0100 @@ -22,5 +22,5 @@ IPC::Run3: '0' Scalar::Util: '0' Test::More: '0' -version: '0.48' -x_serialization_backend: 'CPAN::Meta::YAML version 0.016' +version: '0.49' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Rsync-0.48/README new/File-Rsync-0.49/README --- old/File-Rsync-0.48/README 2015-07-30 16:33:10.000000000 +0200 +++ new/File-Rsync-0.49/README 2016-03-10 14:51:11.000000000 +0100 @@ -1,7 +1,7 @@ File-Rsync - A wrapper module for rsync(1) http://rsync.samba.org/rsync/ ******************************************************************************* -Copyright (C) 2000-2015 Lee Eakin. All rights reserved. +Copyright (C) 2000-2016 Lee Eakin. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. ******************************************************************************* diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Rsync-0.48/Rsync.pm new/File-Rsync-0.49/Rsync.pm --- old/File-Rsync-0.48/Rsync.pm 2015-09-21 22:58:19.000000000 +0200 +++ new/File-Rsync-0.49/Rsync.pm 2016-03-09 21:36:13.000000000 +0100 @@ -23,7 +23,7 @@ use strict; use vars qw($VERSION); -$VERSION = '0.48'; +$VERSION = '0.49'; =head1 NAME @@ -686,7 +686,22 @@ my ($cmd, $infun, $outfun, $errfun, $debug) = $self->getcmd(@_); return unless $cmd; warn "exec: @$cmd\n" if $debug; - run3($cmd, $infun, \my $stdout, \my $stderr); + my $input; + if (ref $infun eq 'CODE') { + my $pid = open my $fh, '-|'; + if ($pid) { # parent grabs output + my @in = <$fh>; + close $fh; + chomp @in; + $input = \@in; + } else { # child runs infun + &{$infun}; + exit; + } + } else { + $input = $infun; + } + run3($cmd, $input, \my $stdout, \my $stderr); $self->{_lastcmd} = $cmd; $self->{_realstatus} = $?; $self->{_status} = $? & 127 ? $? & 127 : $? >> 8; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/File-Rsync-0.48/test.pl new/File-Rsync-0.49/test.pl --- old/File-Rsync-0.48/test.pl 2015-09-11 15:34:57.000000000 +0200 +++ new/File-Rsync-0.49/test.pl 2016-03-09 17:46:51.000000000 +0100 @@ -155,7 +155,7 @@ my $rs = File::Rsync->new( archive => 1, files_from => '-', - infun => sub { return shift @copy_list }, + infun => sub { print join "\n", @copy_list }, ); my $ok; my $missing;
