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 - coolo@suse.com
+
+- 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 '
-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: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org