- is HERE, "$]" <= 5.008_008 ? 1 : 2, "$desc : here" unless $^P;
- is TOP, $top, "$desc : top";
- is UP, $top, "$desc : up";
- is SUB, undef, "$desc : sub";
- is EVAL, undef, "$desc : eval";
+ is HERE, 1, "$desc : here" unless $^P;
+ is TOP, $top, "$desc : top";
+ is UP, $top, "$desc : up";
+ is SUB, undef, "$desc : sub";
+ is EVAL, undef, "$desc : eval";