r64865 - in /trunk/libtest-tcp-perl: Changes MANIFEST META.yml debian/changelog inc/Test/More.pm lib/Test/TCP.pm t/09_fork.t

[carnil at users.alioth.debian.org]

Author: carnil
Date: Sat Nov 13 15:52:20 2010
New Revision: 64865

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64865
Log:
* Team upload.
* New upstream release

Added:
    trunk/libtest-tcp-perl/t/09_fork.t
      - copied unchanged from r64864, branches/upstream/libtest-tcp-perl/current/t/09_fork.t
Modified:
    trunk/libtest-tcp-perl/Changes
    trunk/libtest-tcp-perl/MANIFEST
    trunk/libtest-tcp-perl/META.yml
    trunk/libtest-tcp-perl/debian/changelog
    trunk/libtest-tcp-perl/inc/Test/More.pm
    trunk/libtest-tcp-perl/lib/Test/TCP.pm

Modified: trunk/libtest-tcp-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/Changes?rev=64865&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/Changes (original)
+++ trunk/libtest-tcp-perl/Changes Sat Nov 13 15:52:20 2010
@@ -1,4 +1,8 @@
 Revision history for Perl extension Test::TCP
+
+1.07
+
+    - allow forking in the client(lestrrat)
 
 1.06
 

Modified: trunk/libtest-tcp-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/MANIFEST?rev=64865&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/MANIFEST (original)
+++ trunk/libtest-tcp-perl/MANIFEST Sat Nov 13 15:52:20 2010
@@ -25,6 +25,7 @@
 t/06_nest.t
 t/07_optional.t
 t/08_exit.t
+t/09_fork.t
 t/Server.pm
 xt/01_podspell.t
 xt/02_perlcritic.t

Modified: trunk/libtest-tcp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/META.yml?rev=64865&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/META.yml (original)
+++ trunk/libtest-tcp-perl/META.yml Sat Nov 13 15:52:20 2010
@@ -24,4 +24,4 @@
   perl: 5.8.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.06
+version: 1.07

Modified: trunk/libtest-tcp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/debian/changelog?rev=64865&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/debian/changelog (original)
+++ trunk/libtest-tcp-perl/debian/changelog Sat Nov 13 15:52:20 2010
@@ -1,3 +1,10 @@
+libtest-tcp-perl (1.07-1) UNRELEASED; urgency=low
+
+  * Team upload.
+  * New upstream release
+
+ -- Salvatore Bonaccorso <carnil at debian.org>  Sat, 13 Nov 2010 16:49:26 +0100
+
 libtest-tcp-perl (1.06-1) unstable; urgency=low
 
   [ Nicholas Bamber ]

Modified: trunk/libtest-tcp-perl/inc/Test/More.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/inc/Test/More.pm?rev=64865&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/inc/Test/More.pm (original)
+++ trunk/libtest-tcp-perl/inc/Test/More.pm Sat Nov 13 15:52:20 2010
@@ -1,7 +1,7 @@
 #line 1
 package Test::More;
 
-use 5.008001;
+use 5.006;
 use strict;
 use warnings;
 
@@ -18,7 +18,7 @@
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '2.00_01';
+our $VERSION = '0.97_01';
 $VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
 
 use Test::Builder::Module;

Modified: trunk/libtest-tcp-perl/lib/Test/TCP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-tcp-perl/lib/Test/TCP.pm?rev=64865&op=diff
==============================================================================
--- trunk/libtest-tcp-perl/lib/Test/TCP.pm (original)
+++ trunk/libtest-tcp-perl/lib/Test/TCP.pm Sat Nov 13 15:52:20 2010
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use 5.00800;
-our $VERSION = '1.06';
+our $VERSION = '1.07';
 use base qw/Exporter/;
 use IO::Socket::INET;
 use Test::SharedFork 0.12;
@@ -117,12 +117,14 @@
         Test::TCP::Guard;
     sub new {
         my ($class, %args) = @_;
-        bless { %args }, $class;
+        bless { %args, _mypid => $$ }, $class;
     }
     sub DESTROY {
         my ($self) = @_;
-        local $@;
-        $self->{code}->();
+        if ($self->{_mypid} == $$) {
+            local $@;
+            $self->{code}->();
+        }
     }
 }
 
@@ -242,6 +244,8 @@
 
 Tatsuhiko Miyagawa
 
+lestrrat
+
 =head1 SEE ALSO
 
 =head1 LICENSE