Looks like the core was changed between commit
31d52b17 and the release
of perl 5.21.4.
my @calls = qw<eat shoot leave roam yawn roam>;
my (@fetch, @store);
my @calls = qw<eat shoot leave roam yawn roam>;
my (@fetch, @store);
- if ("$]" < 5.011_002) {
- @fetch = @calls;
- @store = @calls;
- } elsif ("$]" < 5.021_004) {
+ if ("$]" >= 5.011_002 && "$]" < 5.021_004) {
@fetch = @calls;
@store = map { ($_) x 2 } @calls;
} else {
@fetch = @calls;
@store = map { ($_) x 2 } @calls;
} else {
- @fetch = map { ($_) x 2 } @calls;
CB
} qw<fetch store exists delete>);
CB
} qw<fetch store exists delete>);
-my $uo_exp = "$]" < 5.011_002 ? 2 : 3;
+my $uo_exp = "$]" >= 5.011_002 && "$]" < 5.021_004 ? 3 : 2;
$code .= ', data => sub { +{ guard => 0 } }';
$code .= ', data => sub { +{ guard => 0 } }';