Hello community, here is the log from the commit of package perl-Test-Trap for openSUSE:Factory checked in at 2012-05-31 17:08:46 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Trap (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Trap.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Trap", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Trap/perl-Test-Trap.changes 2012-01-04 07:29:15.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.perl-Test-Trap.new/perl-Test-Trap.changes 2012-05-31 17:08:54.000000000 +0200 @@ -1,0 +2,17 @@ +Wed May 30 11:35:28 UTC 2012 - [email protected] + +- updated to 0.2.2 + Test::Trap::Builder::TempFile & Test::Trap::Builder::SystemSafe: + - RT#61776: Remove temporary files at first opportunity; + thanks go to Ian Goodacre. + Documentation: + - RT#61773: return from trap function + Document what trap { ... } returns. + Tests: + - RT#75430: Failing tests in 06-layer.t + Convert a number of die_is to die_like, handling cases with + and without trailing comma from carp. + - Unset another taint-checked environment variable, CDPATH; + thanks go to CPAN testers. + +------------------------------------------------------------------- Old: ---- Test-Trap-v0.2.1.tar.gz New: ---- Test-Trap-v0.2.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Trap.spec ++++++ --- /var/tmp/diff_new_pack.OUvTQA/_old 2012-05-31 17:08:56.000000000 +0200 +++ /var/tmp/diff_new_pack.OUvTQA/_new 2012-05-31 17:08:56.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Test-Trap # -# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,7 +17,7 @@ Name: perl-Test-Trap -Version: 0.2.1 +Version: 0.2.2 Release: 0 %define cpan_name Test-Trap Summary: Trap exit codes, exceptions, output, etc ++++++ Test-Trap-v0.2.1.tar.gz -> Test-Trap-v0.2.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/Build.PL new/Test-Trap-v0.2.2/Build.PL --- old/Test-Trap-v0.2.1/Build.PL 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/Build.PL 2012-03-02 03:18:01.000000000 +0100 @@ -33,6 +33,7 @@ }, add_to_cleanup => [ 'Test-Trap-*', + 'MYMETA.yml', 't/08-fork.t', 't/11-systemsafe-basic.t', ], diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/Changes new/Test-Trap-v0.2.2/Changes --- old/Test-Trap-v0.2.1/Changes 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/Changes 2012-03-02 03:18:01.000000000 +0100 @@ -1,5 +1,19 @@ Revision history for Test-Trap +0.2.2 Fri Mar 2 02:23:04 CET 2012 + Test::Trap::Builder::TempFile & Test::Trap::Builder::SystemSafe: + - RT #61776: Remove temporary files at first opportunity; + thanks go to Ian Goodacre. + Documentation: + - RT #61773: return from trap function + Document what trap { ... } returns. + Tests: + - RT #75430: Failing tests in 06-layer.t + Convert a number of die_is to die_like, handling cases with + and without trailing comma from carp. + - Unset another taint-checked environment variable, CDPATH; + thanks go to CPAN testers. + 0.2.1 Tue Dec 29 23:14:45 CET 2009 Documentation: - fix a typo, [RT #48941]; thanks go to David Taylor; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/META.yml new/Test-Trap-v0.2.2/META.yml --- old/Test-Trap-v0.2.1/META.yml 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/META.yml 2012-03-02 03:18:01.000000000 +0100 @@ -1,12 +1,31 @@ --- -name: Test-Trap -version: v0.2.1 +abstract: 'Trap exit codes, exceptions, output, etc.' author: - 'Eirik Berg Hanssen <[email protected]>' -abstract: 'Trap exit codes, exceptions, output, etc.' +configure_requires: + Module::Build: 0.36 +generated_by: 'Module::Build version 0.3607' license: perl -resources: - license: http://dev.perl.org/licenses/ +meta-spec: + url: http://module-build.sourceforge.net/META-spec-v1.4.html + version: 1.4 +name: Test-Trap +provides: + Test::Trap: + file: lib/Test/Trap.pm + version: v0.2.2 + Test::Trap::Builder: + file: lib/Test/Trap/Builder.pm + version: v0.2.2 + Test::Trap::Builder::PerlIO: + file: lib/Test/Trap/Builder/PerlIO.pm + version: v0.2.2 + Test::Trap::Builder::SystemSafe: + file: lib/Test/Trap/Builder/SystemSafe.pm + version: v0.2.2 + Test::Trap::Builder::TempFile: + file: lib/Test/Trap/Builder/TempFile.pm + version: v0.2.2 requires: Carp: 0 Data::Dump: 0 @@ -23,25 +42,6 @@ strict: 0 version: 0 warnings: 0 -configure_requires: - Module::Build: 0.35 -provides: - Test::Trap: - file: lib/Test/Trap.pm - version: v0.2.1 - Test::Trap::Builder: - file: lib/Test/Trap/Builder.pm - version: v0.2.1 - Test::Trap::Builder::PerlIO: - file: lib/Test/Trap/Builder/PerlIO.pm - version: v0.2.1 - Test::Trap::Builder::SystemSafe: - file: lib/Test/Trap/Builder/SystemSafe.pm - version: v0.2.1 - Test::Trap::Builder::TempFile: - file: lib/Test/Trap/Builder/TempFile.pm - version: v0.2.1 -generated_by: Module::Build version 0.35 -meta-spec: - url: http://module-build.sourceforge.net/META-spec-v1.4.html - version: 1.4 +resources: + license: http://dev.perl.org/licenses/ +version: v0.2.2 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/Makefile.PL new/Test-Trap-v0.2.2/Makefile.PL --- old/Test-Trap-v0.2.1/Makefile.PL 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/Makefile.PL 2012-03-02 03:18:01.000000000 +0100 @@ -1,31 +1,31 @@ -# Note: this file was auto-generated by Module::Build::Compat version 0.35 -require 5.6.2; +# Note: this file was auto-generated by Module::Build::Compat version 0.3607 +require 5.006002; use ExtUtils::MakeMaker; WriteMakefile ( - 'PL_FILES' => { - 't/08-fork.PL' => 't/08-fork.t', - 't/11-systemsafe-basic.PL' => 't/11-systemsafe-basic.t' - }, - 'INSTALLDIRS' => 'site', - 'NAME' => 'Test::Trap', - 'EXE_FILES' => [], - 'VERSION_FROM' => 'lib/Test/Trap.pm', - 'PREREQ_PM' => { - 'warnings' => 0, - 'base' => 0, - 'version' => 0, - 'IO::Handle' => 0, - 'Test::Tester' => '0.107', - 'constant' => 0, - 'Exporter' => 0, - 'Carp' => 0, - 'strict' => 0, - 'Test::More' => 0, - 'Test::Builder' => 0, - 'File::Temp' => 0, - 'Data::Dump' => 0, - 'lib' => 0 - } - ) + 'PL_FILES' => { + 't/08-fork.PL' => 't/08-fork.t', + 't/11-systemsafe-basic.PL' => 't/11-systemsafe-basic.t' + }, + 'INSTALLDIRS' => 'site', + 'NAME' => 'Test::Trap', + 'EXE_FILES' => [], + 'VERSION_FROM' => 'lib/Test/Trap.pm', + 'PREREQ_PM' => { + 'warnings' => 0, + 'base' => 0, + 'version' => 0, + 'IO::Handle' => 0, + 'Test::Tester' => '0.107', + 'constant' => 0, + 'Exporter' => 0, + 'Carp' => 0, + 'strict' => 0, + 'Test::More' => 0, + 'Test::Builder' => 0, + 'File::Temp' => 0, + 'Data::Dump' => 0, + 'lib' => 0 + } +) ; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/README new/Test-Trap-v0.2.2/README --- old/Test-Trap-v0.2.1/README 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/README 2012-03-02 03:18:01.000000000 +0100 @@ -28,7 +28,7 @@ COPYRIGHT AND LICENCE -Copyright (C) 2006-2008 Eirik Berg Hanssen +Copyright (C) 2006-2012 Eirik Berg Hanssen This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/lib/Test/Trap/Builder/PerlIO.pm new/Test-Trap-v0.2.2/lib/Test/Trap/Builder/PerlIO.pm --- old/Test-Trap-v0.2.1/lib/Test/Trap/Builder/PerlIO.pm 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/lib/Test/Trap/Builder/PerlIO.pm 2012-03-02 03:18:01.000000000 +0100 @@ -1,6 +1,6 @@ package Test::Trap::Builder::PerlIO; -use version; $VERSION = qv('0.2.1'); +use version; $VERSION = qv('0.2.2'); use strict; use warnings; @@ -30,7 +30,7 @@ =head1 VERSION -Version 0.2.1 +Version 0.2.2 =head1 DESCRIPTION @@ -58,7 +58,7 @@ =head1 COPYRIGHT & LICENSE -Copyright 2006-2007 Eirik Berg Hanssen, All Rights Reserved. +Copyright 2006-2012 Eirik Berg Hanssen, All Rights Reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/lib/Test/Trap/Builder/SystemSafe.pm new/Test-Trap-v0.2.2/lib/Test/Trap/Builder/SystemSafe.pm --- old/Test-Trap-v0.2.1/lib/Test/Trap/Builder/SystemSafe.pm 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/lib/Test/Trap/Builder/SystemSafe.pm 2012-03-02 03:18:01.000000000 +0100 @@ -1,6 +1,6 @@ package Test::Trap::Builder::SystemSafe; -use version; $VERSION = qv('0.2.1'); +use version; $VERSION = qv('0.2.2'); use strict; use warnings; @@ -24,6 +24,7 @@ local $/; $self->{$name} .= $fh->getline; close $fh; # don't leak this one either! + unlink $file; } close *$globref; return unless $fh_keeper; @@ -90,7 +91,7 @@ =head1 VERSION -Version 0.2.1 +Version 0.2.2 =head1 DESCRIPTION @@ -136,7 +137,7 @@ =head1 COPYRIGHT & LICENSE -Copyright 2006-2008 Eirik Berg Hanssen, All Rights Reserved. +Copyright 2006-2012 Eirik Berg Hanssen, All Rights Reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/lib/Test/Trap/Builder/TempFile.pm new/Test-Trap-v0.2.2/lib/Test/Trap/Builder/TempFile.pm --- old/Test-Trap-v0.2.1/lib/Test/Trap/Builder/TempFile.pm 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/lib/Test/Trap/Builder/TempFile.pm 2012-03-02 03:18:01.000000000 +0100 @@ -1,6 +1,6 @@ package Test::Trap::Builder::TempFile; -use version; $VERSION = qv('0.2.1'); +use version; $VERSION = qv('0.2.2'); use strict; use warnings; @@ -20,6 +20,7 @@ local $/; $self->{$name} .= <$fh>; close $fh; + unlink $file; }; binmode $fh; # superfluos? local *$globref; @@ -43,7 +44,7 @@ =head1 VERSION -Version 0.2.1 +Version 0.2.2 =head1 DESCRIPTION @@ -76,7 +77,7 @@ =head1 COPYRIGHT & LICENSE -Copyright 2006-2008 Eirik Berg Hanssen, All Rights Reserved. +Copyright 2006-2012 Eirik Berg Hanssen, All Rights Reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/lib/Test/Trap/Builder.pm new/Test-Trap-v0.2.2/lib/Test/Trap/Builder.pm --- old/Test-Trap-v0.2.1/lib/Test/Trap/Builder.pm 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/lib/Test/Trap/Builder.pm 2012-03-02 03:18:01.000000000 +0100 @@ -1,6 +1,6 @@ package Test::Trap::Builder; -use version; $VERSION = qv('0.2.1'); +use version; $VERSION = qv('0.2.2'); use strict; use warnings; @@ -366,7 +366,7 @@ =head1 VERSION -Version 0.2.1 +Version 0.2.2 =head1 SYNOPSIS @@ -771,7 +771,7 @@ =head1 COPYRIGHT & LICENSE -Copyright 2006-2008 Eirik Berg Hanssen, All Rights Reserved. +Copyright 2006-2012 Eirik Berg Hanssen, All Rights Reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/lib/Test/Trap.pm new/Test-Trap-v0.2.2/lib/Test/Trap.pm --- old/Test-Trap-v0.2.1/lib/Test/Trap.pm 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/lib/Test/Trap.pm 2012-03-02 03:18:01.000000000 +0100 @@ -1,6 +1,6 @@ package Test::Trap; -use version; $VERSION = qv('0.2.1'); +use version; $VERSION = qv('0.2.2'); use strict; use warnings; @@ -301,7 +301,7 @@ =head1 VERSION -Version 0.2.1 +Version 0.2.2 =head1 SYNOPSIS @@ -354,6 +354,12 @@ queried through the trap object, which is by default exported as C<$trap>, but can be exported by any name. +The value returned from C<trap> mimics that returned from C<eval>: If +the I<BLOCK> would die or exit, it returns an undefined value in +scalar context or an empty list in list context; otherwise it returns +whatever the I<BLOCK> would return in the given context (also +available as the trapped return values). + =head1 TRAP LAYERS Exactly what the C<trap> traps depends on the layers of the trap. It @@ -647,7 +653,7 @@ =head1 COPYRIGHT & LICENSE -Copyright 2006-2008 Eirik Berg Hanssen, All Rights Reserved. +Copyright 2006-2012 Eirik Berg Hanssen, All Rights Reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/t/06-layers.t new/Test-Trap-v0.2.2/t/06-layers.t --- old/Test-Trap-v0.2.1/t/06-layers.t 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/t/06-layers.t 2012-03-02 03:18:01.000000000 +0100 @@ -80,23 +80,15 @@ for my $case ( [ exception1 => sub { die "going down\n" }, - "Rethrowing internal exception: going down\n at (exception1) line 7\n", + qr{^Rethrowing internal exception: going down\n at \(exception1\) line 7\.?\n\z}, 0, '(in layer, so user code not run)', ], [ exception2 => sub { my $self = shift; $self->Teardown(sub { die "going up\n" } ); $self->Next }, - join( $/, - "Rethrowing teardown exception: going up\n", - "Rethrowing teardown exception: going up", - " at (exception2) line 7\n", - ), + qr{^Rethrowing teardown exception: going up\n\nRethrowing teardown exception: going up\n at \(exception2\) line 7\.?\n\z}, 1, '(in teardown, so user code has been run)', ], [ exception3 => sub { my $self = shift; $self->Teardown(sub { die "going up\n" } ); die "going down\n" }, - join( $/, - "Rethrowing internal exception: going down\n", - "Rethrowing teardown exception: going up", - " at (exception3) line 7\n", - ), + qr{^Rethrowing internal exception: going down\n\nRethrowing teardown exception: going up\n at \(exception3\) line 7\.?\n\z}, 0, '(in layer, so user code has not run)', ], ) { @@ -111,7 +103,7 @@ $trap->quiet(' ... quietly'); } trap { %s { ++$x } }; - $trap->die_is( $exception, ' ... internal exceptions caught and rethrown' ); + $trap->die_like( $exception, ' ... internal exceptions caught and rethrown' ); is( $x, $value, ' ... in %s, so user code %s' ); $trap->quiet; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Trap-v0.2.1/t/11-systemsafe-basic.PL new/Test-Trap-v0.2.2/t/11-systemsafe-basic.PL --- old/Test-Trap-v0.2.1/t/11-systemsafe-basic.PL 2009-12-29 23:16:06.000000000 +0100 +++ new/Test-Trap-v0.2.2/t/11-systemsafe-basic.PL 2012-03-02 03:18:01.000000000 +0100 @@ -103,6 +103,7 @@ # Protect against tainted PATH &c ... $ENV{PATH} = ''; +$ENV{CDPATH} = ''; $ENV{ENV} = ''; $ENV{BASH_ENV} = ''; -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
