make this consistent

diff --git a/lib/Try/Tiny.pm b/lib/Try/Tiny.pm
index bf2a91e..0da8660 100644 (file)
--- 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 (file)
--- 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";