From 5d302a6312e0109e1c370b991f1a72421ab6dd4c Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Wed, 8 Jun 2016 23:33:10 +0200
Subject: [PATCH] perl 5.23.4 and later do not have lexical underscore anymore
(RT #108203)
---
lib/lexical/underscore.pm | 2 +-
t/01basic.t | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/lexical/underscore.pm b/lib/lexical/underscore.pm
index c372970..9c77187 100644
--- a/lib/lexical/underscore.pm
+++ b/lib/lexical/underscore.pm
@@ -9,7 +9,7 @@ BEGIN {
$lexical::underscore::VERSION = '0.003';
}
-use if $] >= 5.009, PadWalker => qw( peek_my );
+use if $] >= 5.009 && $] < 5.023004, PadWalker => qw( peek_my );
BEGIN {
*peek_my = sub { +{} } unless __PACKAGE__->can('peek_my');
}
diff --git a/t/01basic.t b/t/01basic.t
index bece8ab..10de45d 100644
--- a/t/01basic.t
+++ b/t/01basic.t
@@ -2,7 +2,7 @@ no if $] > 5.018000, warnings => qw(experimental);
use Test::More;
BEGIN {
- $] >= 5.010 or plan skip_all => "test requires Perl 5.010";
+ ($] >= 5.010 and $] < 5.023004) or plan skip_all => "test requires Perl 5.10.0 .. 5.23.3";
plan tests => 6;
};
--
2.1.4