use more efficient expr form of map, grep when possible

[p5sagit/Try-Tiny.git] / lib / Try / Tiny.pm

diff --git a/lib/Try/Tiny.pm b/lib/Try/Tiny.pm
index af1c463..28ef9a7 100644 (file)
--- a/lib/Try/Tiny.pm
+++ b/lib/Try/Tiny.pm
@@ -78,7 +78,7 @@ sub try (&;@) {
   # file scope + local but that causes issues with perls < 5.20 due to
   # perl rt#119311
   local $_finally_guards{guards} = [
-    map { Try::Tiny::ScopeGuard->_new($_) }
+    map Try::Tiny::ScopeGuard->_new($_),
     @finally
   ];