r16442 - in /branches/upstream/libtest-exception-perl/current: Changes META.yml Makefile.PL lib/Test/Exception.pm

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Tue Mar  4 04:25:20 2008
New Revision: 16442

URL: http://svn.debian.org/wsvn/?sc=1&rev=16442
Log:
[svn-upgrade] Integrating new upstream version, libtest-exception-perl (0.27)

Modified:
    branches/upstream/libtest-exception-perl/current/Changes
    branches/upstream/libtest-exception-perl/current/META.yml
    branches/upstream/libtest-exception-perl/current/Makefile.PL
    branches/upstream/libtest-exception-perl/current/lib/Test/Exception.pm

Modified: branches/upstream/libtest-exception-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-exception-perl/current/Changes?rev=16442&op=diff
==============================================================================
--- branches/upstream/libtest-exception-perl/current/Changes (original)
+++ branches/upstream/libtest-exception-perl/current/Changes Tue Mar  4 04:25:20 2008
@@ -1,4 +1,8 @@
 Revision history for Perl extension Test::Exception:
+
+0.27
+    -   Patch to fix my broken code with the now working Sub::Uplevel. Many
+        thanks to David Golden
 
 0.26
     -   Added some more exposition on the usage of dies_ok() and lives_ok() for 

Modified: branches/upstream/libtest-exception-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-exception-perl/current/META.yml?rev=16442&op=diff
==============================================================================
--- branches/upstream/libtest-exception-perl/current/META.yml (original)
+++ branches/upstream/libtest-exception-perl/current/META.yml Tue Mar  4 04:25:20 2008
@@ -1,6 +1,6 @@
 ---
 name: Test-Exception
-version: 0.26
+version: 0.27
 author:
   - 'Adrian Howard <adrianh at quietstars.com>'
 abstract: Test exception based code
@@ -18,8 +18,8 @@
 provides:
   Test::Exception:
     file: lib/Test/Exception.pm
-    version: 0.26
-generated_by: Module::Build version 0.2808
+    version: 0.27
+generated_by: Module::Build version 0.280801
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.2.html
   version: 1.2

Modified: branches/upstream/libtest-exception-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-exception-perl/current/Makefile.PL?rev=16442&op=diff
==============================================================================
--- branches/upstream/libtest-exception-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-exception-perl/current/Makefile.PL Tue Mar  4 04:25:20 2008
@@ -1,4 +1,5 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
+require 5.6.1;
 use ExtUtils::MakeMaker;
 WriteMakefile
 (

Modified: branches/upstream/libtest-exception-perl/current/lib/Test/Exception.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libtest-exception-perl/current/lib/Test/Exception.pm?rev=16442&op=diff
==============================================================================
--- branches/upstream/libtest-exception-perl/current/lib/Test/Exception.pm (original)
+++ branches/upstream/libtest-exception-perl/current/lib/Test/Exception.pm Tue Mar  4 04:25:20 2008
@@ -7,7 +7,7 @@
 use base qw( Exporter );
 use Carp;
 
-our $VERSION = '0.26';
+our $VERSION = '0.27';
 our @EXPORT = qw(dies_ok lives_ok throws_ok lives_and);
 
 my $Tester = Test::Builder->new;
@@ -83,9 +83,24 @@
 
 =cut
 
+sub _quiet_caller (;$) { ## no critic Prototypes
+    my $height = $_[0];
+    $height++;
+    if( wantarray and !@_ ) {
+        return (CORE::caller($height))[0..2];
+    }
+    else {
+        return CORE::caller($height);
+    }
+}
 
 sub _try_as_caller {
     my $coderef = shift;
+
+    # local works here because Sub::Uplevel has already overridden caller
+    local *CORE::GLOBAL::caller;
+    { no warnings 'redefine'; *CORE::GLOBAL::caller = \&_quiet_caller; }
+
     eval { uplevel 3, $coderef };
     return $@;
 };