Hello community, here is the log from the commit of package perl-Probe-Perl for openSUSE:Factory checked in at 2013-10-06 14:55:44 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Probe-Perl (Old) and /work/SRC/openSUSE:Factory/.perl-Probe-Perl.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Probe-Perl" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Probe-Perl/perl-Probe-Perl.changes 2013-06-14 15:46:37.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Probe-Perl.new/perl-Probe-Perl.changes 2013-10-06 14:55:45.000000000 +0200 @@ -1,0 +2,7 @@ +Fri Oct 4 09:13:23 UTC 2013 - [email protected] + +- updated to 0.03 + - Improved the backticks/quoting situation on Windows, which + unfortunately didn't fare well with the fixes in 0.02. + +------------------------------------------------------------------- Old: ---- Probe-Perl-0.02.tar.gz New: ---- Probe-Perl-0.03.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Probe-Perl.spec ++++++ --- /var/tmp/diff_new_pack.y2vuew/_old 2013-10-06 14:55:46.000000000 +0200 +++ /var/tmp/diff_new_pack.y2vuew/_new 2013-10-06 14:55:46.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Probe-Perl -Version: 0.02 +Version: 0.03 Release: 0 %define cpan_name Probe-Perl Summary: Information about the currently running perl ++++++ Probe-Perl-0.02.tar.gz -> Probe-Perl-0.03.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Probe-Perl-0.02/Changes new/Probe-Perl-0.03/Changes --- old/Probe-Perl-0.02/Changes 2013-04-19 13:38:14.000000000 +0200 +++ new/Probe-Perl-0.03/Changes 2013-08-08 04:27:58.000000000 +0200 @@ -1,6 +1,11 @@ Revision history for ExtUtils-MyPerlConfig -0.02 +0.03 Wed Aug 7 21:24:56 CDT 2013 + + - Improved the backticks/quoting situation on Windows, which + unfortunately didn't fare well with the fixes in 0.02. + +0.02 Thu Apr 18 07:22:46 CDT 2013 - Switched to Git and Dist::Zilla diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Probe-Perl-0.02/META.yml new/Probe-Perl-0.03/META.yml --- old/Probe-Perl-0.02/META.yml 2013-04-19 13:38:14.000000000 +0200 +++ new/Probe-Perl-0.03/META.yml 2013-08-08 04:27:58.000000000 +0200 @@ -20,4 +20,4 @@ resources: bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Probe-Perl repository: git://github.com/kenahoo/Probe-Perl.git -version: 0.02 +version: 0.03 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Probe-Perl-0.02/Makefile.PL new/Probe-Perl-0.03/Makefile.PL --- old/Probe-Perl-0.02/Makefile.PL 2013-04-19 13:38:14.000000000 +0200 +++ new/Probe-Perl-0.03/Makefile.PL 2013-08-08 04:27:58.000000000 +0200 @@ -27,7 +27,7 @@ "TEST_REQUIRES" => { "Test" => 0 }, - "VERSION" => "0.02", + "VERSION" => "0.03", "test" => { "TESTS" => "t/*.t" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Probe-Perl-0.02/README new/Probe-Perl-0.03/README --- old/Probe-Perl-0.02/README 2013-04-19 13:38:14.000000000 +0200 +++ new/Probe-Perl-0.03/README 2013-08-08 04:27:58.000000000 +0200 @@ -1,7 +1,7 @@ This archive contains the distribution Probe-Perl, -version 0.02: +version 0.03: Information about the currently running perl diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Probe-Perl-0.02/SIGNATURE new/Probe-Perl-0.03/SIGNATURE --- old/Probe-Perl-0.02/SIGNATURE 2013-04-19 13:38:14.000000000 +0200 +++ new/Probe-Perl-0.03/SIGNATURE 2013-08-08 04:27:58.000000000 +0200 @@ -14,22 +14,22 @@ -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 -SHA1 4c5ede97450392a60a68d86983f4ca75f654ca41 Changes +SHA1 1641b0a12748289f73713f5f446e03b21e1cb189 Changes SHA1 730231002579a43ba75250890ad448c4bae80a8a INSTALL SHA1 8cb63de1ae4c54a120beb97cacc1fe2efe4d266b LICENSE SHA1 b1ad3c2fceb0ece79a87fdcda509cea23bf7d30b MANIFEST -SHA1 d56191ecb780024e0bbbf54b3caefdffd41d9dce META.yml -SHA1 0a0077af88f536db6e02f3413c9aacbdf68458a3 Makefile.PL -SHA1 b7857391631974c5306489a84c86b59c1c24a66c README -SHA1 b66f24c145e4ff94f78cd47a5c8a86a92e38f7fb dist.ini -SHA1 afbbb21123cfbf69463b7ec8e4b9d5d25f8c31bf lib/Probe/Perl.pm +SHA1 faf65b1e783dddccbb7ef73aa82e68985ce5f160 META.yml +SHA1 da50a9bb42da213550bfe5a1f28303fd9b6cb8df Makefile.PL +SHA1 023f084d8895c8c27bdd9efd0dfb5605199d3766 README +SHA1 3621c42c03a067ef7d95b4ed681792e6ca9ff2b8 dist.ini +SHA1 a3c8dda4d1320361911c2dc62e4c307ddb7b21eb lib/Probe/Perl.pm SHA1 fa45d6e6ab1cd421349dea4ef527bfd5cdc8a09e t/author-critic.t SHA1 3e24f0b5778bc026ffc9d12b30f69aceb25c988d t/basic.t -----BEGIN PGP SIGNATURE----- Version: GnuPG/MacGPG2 v2.0.17 (Darwin) Comment: GPGTools - http://gpgtools.org -iEYEARECAAYFAlFxLKUACgkQgrvMBLfvlHZc2gCbB+oDuFJVR2JfqV8tuuCOKOre -0pkAnjUVF0CO7wEiFAkCu3YLXWCwQxIl -=6AGf +iEYEARECAAYFAlIDAi4ACgkQgrvMBLfvlHYR0QCeKVkkLIq4AvhgTjmLis70ysMX +JWcAoLIVJChV+STpXVRh9Lbx6pTC5lt+ +=HapE -----END PGP SIGNATURE----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Probe-Perl-0.02/dist.ini new/Probe-Perl-0.03/dist.ini --- old/Probe-Perl-0.02/dist.ini 2013-04-19 13:38:14.000000000 +0200 +++ new/Probe-Perl-0.03/dist.ini 2013-08-08 04:27:58.000000000 +0200 @@ -1,5 +1,5 @@ name = Probe-Perl -version = 0.02 +version = 0.03 author = Ken Williams <[email protected]> license = Perl_5 copyright_holder = Ken Williams diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Probe-Perl-0.02/lib/Probe/Perl.pm new/Probe-Perl-0.03/lib/Probe/Perl.pm --- old/Probe-Perl-0.02/lib/Probe/Perl.pm 2013-04-19 13:38:14.000000000 +0200 +++ new/Probe-Perl-0.03/lib/Probe/Perl.pm 2013-08-08 04:27:58.000000000 +0200 @@ -2,7 +2,7 @@ package Probe::Perl; { - $Probe::Perl::VERSION = '0.02'; + $Probe::Perl::VERSION = '0.03'; } # TODO: cache values derived from launching an external perl process @@ -52,8 +52,26 @@ } sub _backticks { - open my $fh, '-|', @_ or die $!; - return wantarray ? <$fh> : do {local $/=undef; <$fh>}; + my $perl = shift; + return unless -e $perl; + + my $fh; + eval {open $fh, '-|', $perl, @_ or die $!}; + if (!$@) { + return <$fh> if wantarray; + my $tmp = do {local $/=undef; <$fh>}; + return $tmp; + } + + # Quoting only happens on the path to perl - I control the rest of + # the args and they don't need quoting. + if ($^O eq 'MSWin32') { + $perl = qq{"$perl"} if $perl =~ m{^[\w\\]+$}; + } else { + $perl =~ s{([^\w\\])}{\\$1}g; + } + + return `$perl @_`; } sub perl_is_same { @@ -161,7 +179,7 @@ =head1 VERSION -version 0.02 +version 0.03 =head1 SYNOPSIS -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
