diff -Nru libparallel-forkmanager-perl-1.05/Changes libparallel-forkmanager-perl-1.06/Changes --- libparallel-forkmanager-perl-1.05/Changes 2013-09-18 08:53:56.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/Changes 2013-12-24 20:38:07.000000000 +0000 @@ -1,5 +1,10 @@ Revision history for Perl extension Parallel::ForkManager. +1.06 Tue Dec 24 22:37:54 2013 + - Remove temporary directory only if it was an automatically + generated one. Now fixed. (Shoichi Kaji) RT #89590 + (johantheolive) + 1.05 Wed Sep 18 10:53:33 2013 - Remove temporary directory only if it was an automatically generated one. (reported by Manuel Jeckelmann) diff -Nru libparallel-forkmanager-perl-1.05/META.json libparallel-forkmanager-perl-1.06/META.json --- libparallel-forkmanager-perl-1.05/META.json 2013-09-18 08:55:52.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/META.json 2013-12-24 20:40:21.000000000 +0000 @@ -4,7 +4,7 @@ "Balazs Szabo (dLux)" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921", + "generated_by" : "ExtUtils::MakeMaker version 6.78, CPAN::Meta::Converter version 2.132661", "license" : [ "perl_5" ], @@ -46,7 +46,7 @@ "url" : "http://code.google.com/p/perl-parallel-forkmanager/" } }, - "version" : "1.05", + "version" : "1.06", "x_contributors" : [ "SZABGAB", "Michael Gang", diff -Nru libparallel-forkmanager-perl-1.05/META.yml libparallel-forkmanager-perl-1.06/META.yml --- libparallel-forkmanager-perl-1.05/META.yml 2013-09-18 08:55:52.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/META.yml 2013-12-24 20:40:21.000000000 +0000 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 6.66, CPAN::Meta::Converter version 2.120921' +generated_by: 'ExtUtils::MakeMaker version 6.78, CPAN::Meta::Converter version 2.132661' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -25,7 +25,7 @@ Storable: 0 resources: repository: http://code.google.com/p/perl-parallel-forkmanager/ -version: 1.05 +version: 1.06 x_contributors: - SZABGAB - 'Michael Gang' diff -Nru libparallel-forkmanager-perl-1.05/debian/changelog libparallel-forkmanager-perl-1.06/debian/changelog --- libparallel-forkmanager-perl-1.05/debian/changelog 2013-10-18 18:25:10.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/debian/changelog 2014-01-02 20:35:27.000000000 +0000 @@ -1,3 +1,12 @@ +libparallel-forkmanager-perl (1.06-1) unstable; urgency=medium + + * Team upload. + * New upstream release. + * Add years of upstream copyright. + * Declare compliance with Debian Policy 3.9.5. + + -- gregor herrmann Thu, 02 Jan 2014 21:35:13 +0100 + libparallel-forkmanager-perl (1.05-1) unstable; urgency=low * Team upload. diff -Nru libparallel-forkmanager-perl-1.05/debian/control libparallel-forkmanager-perl-1.06/debian/control --- libparallel-forkmanager-perl-1.05/debian/control 2013-10-18 18:25:10.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/debian/control 2014-01-02 20:35:27.000000000 +0000 @@ -6,7 +6,7 @@ libutf8-all-perl Maintainer: Debian Perl Group Uploaders: Damyan Ivanov -Standards-Version: 3.9.4 +Standards-Version: 3.9.5 Vcs-Git: git://anonscm.debian.org/pkg-perl/packages/libparallel-forkmanager-perl.git Vcs-Browser: http://anonscm.debian.org/gitweb/?p=pkg-perl/packages/libparallel-forkmanager-perl.git Homepage: https://metacpan.org/release/Parallel-ForkManager/ diff -Nru libparallel-forkmanager-perl-1.05/debian/copyright libparallel-forkmanager-perl-1.06/debian/copyright --- libparallel-forkmanager-perl-1.05/debian/copyright 2013-10-18 18:25:10.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/debian/copyright 2014-01-02 20:35:27.000000000 +0000 @@ -4,7 +4,7 @@ Source: https://metacpan.org/release/Parallel-ForkManager/ Files: * -Copyright: Balazs Szabo (dLux) +Copyright: 2000-2010, Balazs Szabo (dLux) License: Artistic or GPL-1+ Files: debian/* diff -Nru libparallel-forkmanager-perl-1.05/examples/callback_data.pl libparallel-forkmanager-perl-1.06/examples/callback_data.pl --- libparallel-forkmanager-perl-1.05/examples/callback_data.pl 2013-09-18 08:36:47.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/examples/callback_data.pl 2013-12-24 20:19:01.000000000 +0000 @@ -7,7 +7,7 @@ my $max_procs = 2; my @names = qw( Fred Jim ); -my $pm = Parallel::ForkManager->new($max_procs); +my $pm = Parallel::ForkManager->new($max_procs, @ARGV); # Setup a callback for when a child finishes up so we can # get it's exit code and any data it collected diff -Nru libparallel-forkmanager-perl-1.05/lib/Parallel/ForkManager.pm libparallel-forkmanager-perl-1.06/lib/Parallel/ForkManager.pm --- libparallel-forkmanager-perl-1.05/lib/Parallel/ForkManager.pm 2013-09-18 08:55:09.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/lib/Parallel/ForkManager.pm 2013-12-24 20:38:14.000000000 +0000 @@ -442,7 +442,7 @@ use File::Path (); use strict; use vars qw($VERSION); -$VERSION="1.05"; +$VERSION="1.06"; $VERSION = eval $VERSION; sub new { @@ -453,7 +453,7 @@ processes => {}, in_child => 0, parent_pid => $$, - auto_cleanup => ($tempdir ? 1 : 0), + auto_cleanup => ($tempdir ? 0 : 1), }; diff -Nru libparallel-forkmanager-perl-1.05/t/03-callback-data.t libparallel-forkmanager-perl-1.06/t/03-callback-data.t --- libparallel-forkmanager-perl-1.05/t/03-callback-data.t 2013-09-18 08:36:47.000000000 +0000 +++ libparallel-forkmanager-perl-1.06/t/03-callback-data.t 2013-12-24 20:27:57.000000000 +0000 @@ -1,14 +1,29 @@ use strict; use warnings; -use Test::More tests => 1; +use Test::More tests => 2; +use File::Temp qw(tempdir); diag 'This test can take 2-6 seconds, please wait. Started at ' . localtime; -my @out = qx{$^X -Ilib examples/callback_data.pl}; -@out = sort @out; my @expected = do { open my $fh, '<', 't/callback_data.txt'; <$fh> }; @expected = sort @expected; -is_deeply \@out, \@expected, 'callback_data worked' or diag explain @out; + + +subtest direct => sub { + my @out = sort qx{$^X -Ilib examples/callback_data.pl}; + is_deeply \@out, \@expected, 'callback_data worked' or diag explain @out; +}; + +subtest tempdir => sub { + my $dir = tempdir( CLEANUP => 1 ); + my $tempdir = "$dir/abc"; + mkdir $tempdir; + my @out = sort qx{$^X -Ilib examples/callback_data.pl $tempdir}; + is_deeply \@out, \@expected, 'callback_data worked' or diag explain @out; + ok -d $tempdir, 'tempdir was left there'; +}; + +