From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 4 Jul 2013 04:19:38 +0000 (+0200)
Subject: This is no longer a TODO, but given the experimental nature not ready to be documented
X-Git-Tag: Try-Tiny-0.13~6^2~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aaf0d61f7adfda3b06885f9db74de908a7f0cd49;p=p5sagit%2FTry-Tiny.git

This is no longer a TODO, but given the experimental nature not ready to be documented

https://metacpan.org/module/SHAY/perl-5.17.3/pod/perldelta.pod#given-now-aliases-the-global-_
---

diff --git a/lib/Try/Tiny.pm b/lib/Try/Tiny.pm
index 229c3c8..db18b3e 100644
--- a/lib/Try/Tiny.pm
+++ b/lib/Try/Tiny.pm
@@ -533,6 +533,12 @@ confusing behavior:
     }
   }
 
+Note that this behavior was changed once again in L<Perl5 version 18
+|https://metacpan.org/module/perldelta#given-now-aliases-the-global-_>.
+However, since the entirety of lexical C<$_> is now L<considired experimental
+|https://metacpan.org/module/perldelta#Lexical-_-is-now-experimental>, it
+is unclear whether the new version 18 behavior is final.
+
 =back
 
 =head1 SEE ALSO
diff --git a/t/given_when.t b/t/given_when.t
index 49e11ac..edd8a4e 100644
--- a/t/given_when.t
+++ b/t/given_when.t
@@ -30,7 +30,8 @@ given ("foo") {
 is( $error, "blah\n", "error caught" );
 
 {
-  local $TODO = "perhaps a workaround can be found";
+  local $TODO = "perhaps a workaround can be found"
+    if $] < 5.017003;
   is( $topic, $error, 'error is also in $_' );
 }