Skip to content
Browse files

Localize $TryCatch::Exception to prevent exceptions being handled aft…

…er the current try/catch block
  • Loading branch information...
1 parent c356211 commit 802e217cf38ce73d18fe372ac86e7e473348755c @pmakholm committed May 25, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/TryCatch.pm
View
2 lib/TryCatch.pm
@@ -115,7 +115,7 @@ sub injected_try_code {
return @STATE > 1
? 'local $TryCatch::CTX = Scope::Upper::HERE; eval {' # Nested case
- : 'local $@; eval {'
+ : 'local $@; local $TryCatch::Exception; eval {'
}
sub injected_after_try {

0 comments on commit 802e217

Please sign in to comment.
Something went wrong with that request. Please try again.