The construct introduced in 2b0d579d8 confuses perl 5.6 - simplify

diff --git a/lib/Try/Tiny.pm b/lib/Try/Tiny.pm
index 3331660..8e8dd02 100644 (file)
--- a/lib/Try/Tiny.pm
+++ b/lib/Try/Tiny.pm
@@ -69,9 +69,10 @@ sub try (&;@) {
     };
 
     return 1; # properly set $fail to false
-  } and $error = $@;
+  };
 
-  # reset the original value of $@
+  # preserve the current error and reset the original value of $@
+  $error = $@;
   $@ = $prev_error;
 
   # set up a scope guard to invoke the finally block at the end