Version 1.001001

ashb · May 16, 2009 · 27eddea · 27eddea
1 parent d3e0903
commit 27eddea
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,7 +1,9 @@
 Version history for TryCatch perl module:
 
+1.001001 - 2009/05/16
   - Fix bug with nested try+die (Reported by Possum)
     As a result of this $@ will not have the value of the exception visible
+  - Fix compile issues on 5.8.6 by using ppport.h
 
 1.001000 - 2009/04/26 - 01:01
   - Fix bug where catch block would get run sometimes when it shouldn't

diff --git a/README b/README
@@ -6,8 +6,10 @@ SYNOPSIS
      use TryCatch;
 
      sub foo {
+       my ($self) = @_;
+
        try {
-         # some code that might die
+         die Some::Class->new(code => 404 ) if $self->not_found;
          return "return value from foo";
        }
        catch (Some::Class $e where { $_->code > 100 } ) {

diff --git a/lib/TryCatch.pm b/lib/TryCatch.pm
@@ -17,7 +17,7 @@ use XSLoader;
 use base qw/Devel::Declare::Context::Simple/;
 
 
-our $VERSION = '1.001000';
+our $VERSION = '1.001001';
 
 # These are private state variables. Mess with them at your peril
 our ($CHECK_OP_HOOK, $CHECK_OP_DEPTH) = (undef, 0);