}
sub maybe_warn {
- diag 'This will throw two warnings' if "$]" >= 5.008008 and "$]" < 5.009;
+ diag 'This will throw two warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
}
{
}
SKIP: {
- skip 'Kinda broken on old 5.8.x' => 1 if "$]" <= 5.008006;
+ skip 'Kinda broken on old 5.8.x' => 1 if "$]" <= 5.008_006;
maybe_warn();
local $@;
eval q!