r16444 - in /trunk/libtest-exception-perl: Changes META.yml Makefile.PL debian/changelog debian/control lib/Test/Exception.pm

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

Author: tincho-guest
Date: Tue Mar  4 04:35:36 2008
New Revision: 16444

URL: http://svn.debian.org/wsvn/?sc=1&rev=16444
Log:
MISSING DEPENDENCIES - see #457165 all satisfied by Test-Simle-0.78
* New upstream release (0.27).
* Upgrade debhelper dependency to 5.
* Set versioned dependency on libtest-simple-perl, waiting for #457165 to be
  fixed.

Modified:
    trunk/libtest-exception-perl/Changes
    trunk/libtest-exception-perl/META.yml
    trunk/libtest-exception-perl/Makefile.PL
    trunk/libtest-exception-perl/debian/changelog
    trunk/libtest-exception-perl/debian/control
    trunk/libtest-exception-perl/lib/Test/Exception.pm

Modified: trunk/libtest-exception-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libtest-exception-perl/Changes?rev=16444&op=diff
==============================================================================
--- trunk/libtest-exception-perl/Changes (original)
+++ trunk/libtest-exception-perl/Changes Tue Mar  4 04:35:36 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: trunk/libtest-exception-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libtest-exception-perl/META.yml?rev=16444&op=diff
==============================================================================
--- trunk/libtest-exception-perl/META.yml (original)
+++ trunk/libtest-exception-perl/META.yml Tue Mar  4 04:35:36 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: trunk/libtest-exception-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libtest-exception-perl/Makefile.PL?rev=16444&op=diff
==============================================================================
--- trunk/libtest-exception-perl/Makefile.PL (original)
+++ trunk/libtest-exception-perl/Makefile.PL Tue Mar  4 04:35:36 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: trunk/libtest-exception-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libtest-exception-perl/debian/changelog?rev=16444&op=diff
==============================================================================
--- trunk/libtest-exception-perl/debian/changelog (original)
+++ trunk/libtest-exception-perl/debian/changelog Tue Mar  4 04:35:36 2008
@@ -1,6 +1,6 @@
-libtest-exception-perl (0.26-1) UNRELEASED; urgency=low
+libtest-exception-perl (0.27-1) UNRELEASED; urgency=low
 
-  MISSING DEPENDENCIES - see #457165
+  MISSING DEPENDENCIES - see #457165 all satisfied by Test-Simle-0.78
   NEEDS Test::Builder (>= 0.7)
   NEEDS Test::Builder::Tester (>= 1.07)
   NEEDS Test::More (>= 0.7)
@@ -22,6 +22,12 @@
     - fixed versions of Build-Dependencies
   * debian/compat: updated to version 5
   * debian/rules: minimal changes
+
+  [ Martín Ferrari ]
+  * New upstream release (0.27).
+  * Upgrade debhelper dependency to 5.
+  * Set versioned dependency on libtest-simple-perl, waiting for #457165 to be
+    fixed.
 
  -- David Paleino <d.paleino at gmail.com>  Thu, 20 Dec 2007 10:13:16 +0100
 

Modified: trunk/libtest-exception-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libtest-exception-perl/debian/control?rev=16444&op=diff
==============================================================================
--- trunk/libtest-exception-perl/debian/control (original)
+++ trunk/libtest-exception-perl/debian/control Tue Mar  4 04:35:36 2008
@@ -4,8 +4,9 @@
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jay Bonci <jaybonci at debian.org>,
  David Paleino <d.paleino at gmail.com>
-Build-Depends: debhelper (>> 4.0.0), perl (>= 5.6.1), libsub-uplevel-perl (>= 0.18),
- libtest-simple-perl (>= 0.7), libpod-coverage-perl, libtest-harness-perl (>= 2.03)
+Build-Depends: debhelper (>= 5), perl (>= 5.6.1),
+ libsub-uplevel-perl (>= 0.18), libtest-simple-perl (>= 0.78),
+ libpod-coverage-perl, libtest-harness-perl (>= 2.03)
 Standards-Version: 3.7.3
 Homepage: http://search.cpan.org/dist/Test-Exception/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libtest-exception-perl/

Modified: trunk/libtest-exception-perl/lib/Test/Exception.pm
URL: http://svn.debian.org/wsvn/trunk/libtest-exception-perl/lib/Test/Exception.pm?rev=16444&op=diff
==============================================================================
--- trunk/libtest-exception-perl/lib/Test/Exception.pm (original)
+++ trunk/libtest-exception-perl/lib/Test/Exception.pm Tue Mar  4 04:35:36 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 $@;
 };