From: Aristotle Pagaltzis <pagaltzis@gmx.de>
Date: Wed, 26 Apr 2017 11:02:22 +0000 (+0200)
Subject: fix ambiguous-without-parentheses warning pre-5.10
X-Git-Tag: v0.29~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a1a5e0a2d8131db4de852f4a62177e4fddf3f664;p=p5sagit%2FTry-Tiny.git

fix ambiguous-without-parentheses warning pre-5.10
---

diff --git a/lib/Try/Tiny.pm b/lib/Try/Tiny.pm
index 9a40de9..20b0415 100644
--- a/lib/Try/Tiny.pm
+++ b/lib/Try/Tiny.pm
@@ -70,7 +70,7 @@ sub try (&;@) {
   # $catch->();
 
   # name the blocks if we have Sub::Name installed
-  _subname(caller.'::try {...} ' => $try)
+  _subname(caller().'::try {...} ' => $try)
     if _HAS_SUBNAME;
 
   # set up scope guards to invoke the finally blocks at the end.
@@ -139,7 +139,7 @@ sub catch (&;@) {
 
   croak 'Useless bare catch()' unless wantarray;
 
-  _subname(caller.'::catch {...} ' => $block)
+  _subname(caller().'::catch {...} ' => $block)
     if _HAS_SUBNAME;
   return (
     bless(\$block, 'Try::Tiny::Catch'),
@@ -152,7 +152,7 @@ sub finally (&;@) {
 
   croak 'Useless bare finally()' unless wantarray;
 
-  _subname(caller.'::finally {...} ' => $block)
+  _subname(caller().'::finally {...} ' => $block)
     if _HAS_SUBNAME;
   return (
     bless(\$block, 'Try::Tiny::Finally'),