From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 8 Jul 2013 21:57:14 +0000 (-0400)
Subject: make this consistent
X-Git-Tag: Try-Tiny-0.15~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=faa955ce97911b743beeabd4ae795b26d24a66d5;p=p5sagit%2FTry-Tiny.git

make this consistent
---

diff --git a/lib/Try/Tiny.pm b/lib/Try/Tiny.pm
index bf2a91e..0da8660 100644
--- a/lib/Try/Tiny.pm
+++ b/lib/Try/Tiny.pm
@@ -51,7 +51,7 @@ sub try (&;@) {
 
   # name the blocks if we have Sub::Name installed
   my $caller = caller;
-  subname("${caller}::try {...}" => $try);
+  subname("${caller}::try {...} " => $try);
   subname("${caller}::catch {...} " => $catch) if $catch;
   subname("${caller}::finally {...} " => $_) foreach @finally;
 
diff --git a/t/named.t b/t/named.t
index 7d31c88..32fb83c 100644
--- a/t/named.t
+++ b/t/named.t
@@ -17,7 +17,7 @@ my $name;
 try {
 	$name = (caller(0))[3];
 };
-is $name, "main::try {...}", "try name";
+is $name, "main::try {...} ", "try name"; # note extra space
 
 try {
 	die "Boom";