r62104 - in /branches/upstream/libtest-tcp-perl/current: Changes META.yml lib/Test/TCP.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Sat Aug 28 13:50:22 2010
New Revision: 62104

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62104
Log:
[svn-upgrade] new version libtest-tcp-perl (1.04)

Modified:
    branches/upstream/libtest-tcp-perl/current/Changes
    branches/upstream/libtest-tcp-perl/current/META.yml
    branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm

Modified: branches/upstream/libtest-tcp-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/Changes?rev=62104&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/Changes (original)
+++ branches/upstream/libtest-tcp-perl/current/Changes Sat Aug 28 13:50:22 2010
@@ -1,4 +1,8 @@
 Revision history for Perl extension Test::TCP
+
+1.04
+
+    - fixed local $@ issue. this happens on some version of perl5.
 
 1.03
 

Modified: branches/upstream/libtest-tcp-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/META.yml?rev=62104&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/META.yml (original)
+++ branches/upstream/libtest-tcp-perl/current/META.yml Sat Aug 28 13:50:22 2010
@@ -24,4 +24,4 @@
   perl: 5.8.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.03
+version: 1.04

Modified: branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm?rev=62104&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm (original)
+++ branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm Sat Aug 28 13:50:22 2010
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.00800;
-our $VERSION = '1.03';
+our $VERSION = '1.04';
 use base qw/Exporter/;
 use IO::Socket::INET;
 use Test::SharedFork;
@@ -121,6 +121,7 @@
     }
     sub DESTROY {
         my ($self) = @_;
+        local $@;
         $self->{code}->();
     }
 }