1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
Description: perl 5.23.4 and later do not have lexical underscore anymore
Origin: vendor, http://cpan.cpantesters.org/authors/id/S/SR/SREZIC/patches/lexical-underscore-0.003-RT108203.patch
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=108203
Bug-Debian: http://bugs.debian.org/825524
Author: Slaven Rezic <slaven@rezic.de>
Last-Update: 2016-09-14
--- a/lib/lexical/underscore.pm
+++ b/lib/lexical/underscore.pm
@@ -9,7 +9,7 @@
$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');
}
--- a/t/01basic.t
+++ b/t/01basic.t
@@ -2,7 +2,7 @@
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;
};
|
