r39542 - in /branches/upstream/libproc-simple-perl/current: .cvsignore Changes META.yml README Simple.pm adm/
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Thu Jul 9 14:33:35 UTC 2009
Author: carnil-guest
Date: Thu Jul 9 14:33:27 2009
New Revision: 39542
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39542
Log:
[svn-upgrade] Integrating new upstream version, libproc-simple-perl (1.26)
Removed:
branches/upstream/libproc-simple-perl/current/.cvsignore
branches/upstream/libproc-simple-perl/current/adm/
Modified:
branches/upstream/libproc-simple-perl/current/Changes
branches/upstream/libproc-simple-perl/current/META.yml
branches/upstream/libproc-simple-perl/current/README
branches/upstream/libproc-simple-perl/current/Simple.pm
Modified: branches/upstream/libproc-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libproc-simple-perl/current/Changes?rev=39542&op=diff
==============================================================================
--- branches/upstream/libproc-simple-perl/current/Changes (original)
+++ branches/upstream/libproc-simple-perl/current/Changes Thu Jul 9 14:33:27 2009
@@ -1,6 +1,12 @@
######################################################################
Proc::Simple CHANGES
######################################################################
+
+ from 1.25: Localize special variables so that the exit status
+ from waitpid doesn't leak out, causing exit status
+ to be incorrect (RT33440, fixed by Brad Cavanagh).
+
+ from 1.24: Added copyright header
from 1.23: Applied doc patch by Janne Chr. Schulz
Modified: branches/upstream/libproc-simple-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libproc-simple-perl/current/META.yml?rev=39542&op=diff
==============================================================================
--- branches/upstream/libproc-simple-perl/current/META.yml (original)
+++ branches/upstream/libproc-simple-perl/current/META.yml Thu Jul 9 14:33:27 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Proc-Simple
-version: 1.25
+version: 1.26
abstract: ~
author: []
license: unknown
Modified: branches/upstream/libproc-simple-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libproc-simple-perl/current/README?rev=39542&op=diff
==============================================================================
--- branches/upstream/libproc-simple-perl/current/README (original)
+++ branches/upstream/libproc-simple-perl/current/README Thu Jul 9 14:33:27 2009
@@ -1,5 +1,5 @@
######################################################################
- Proc::Simple 1.25
+ Proc::Simple 1.26
######################################################################
NAME
@@ -280,3 +280,5 @@
Jeff Holt provided a patch for time tracking with t0() and t1().
+ Brad Cavanagh fixed RT33440 (unreliable $?)
+
Modified: branches/upstream/libproc-simple-perl/current/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libproc-simple-perl/current/Simple.pm?rev=39542&op=diff
==============================================================================
--- branches/upstream/libproc-simple-perl/current/Simple.pm (original)
+++ branches/upstream/libproc-simple-perl/current/Simple.pm Thu Jul 9 14:33:27 2009
@@ -117,7 +117,7 @@
@ISA = qw(Exporter AutoLoader);
@EXPORT = qw( );
-$VERSION = '1.25';
+$VERSION = '1.26';
######################################################################
# Globals: Debug and the mysterious waitpid nohang constant.
@@ -516,6 +516,10 @@
sub DESTROY {
my $self = shift;
+ # Localize special variables so that the exit status from waitpid
+ # doesn't leak out, causing exit status to be incorrect.
+ local( $., $@, $!, $^E, $? );
+
# Processes never started don't have to be cleaned up in
# any special way.
return unless $self->pid();
@@ -597,6 +601,10 @@
# Reaps processes, uses the magic WNOHANG constant
######################################################################
sub THE_REAPER {
+
+ # Localize special variables so that the exit status from waitpid
+ # doesn't leak out, causing exit status to be incorrect.
+ local( $., $@, $!, $^E, $? );
my $child;
my $now = time();
@@ -749,4 +757,6 @@
Jeff Holt provided a patch for time tracking with t0() and t1().
-=cut
+Brad Cavanagh fixed RT33440 (unreliable $?)
+
+=cut
More information about the Pkg-perl-cvs-commits
mailing list