use Config qw(%Config);
BEGIN {
+ if (($Config{'extensions'} !~ /\bB\b/) ){
+ print "1..0 # Skip -- Perl configured without B module\n";
+ exit 0;
+ }
if (($Config{'extensions'} !~ /\bByteLoader\b/) ){
print "1..0 # Skip -- Perl configured without ByteLoader module\n";
exit 0;
pvcontents => [],
strconst => [ '""', '"another string"' ], # no NUL
op_tr_array => [ join( ',', 256, 0..255 ) ],
+PADOFFSET => undef,
+long => undef,
);
# Erronous operand values
pvcontents => [ '"spurious arg"' ],
strconst => [ 'no quote"', '"with NUL '."\0".' char"' ], # no NUL
op_tr_array => undef, # op_pv_tr is no longer exactly 256 shorts
+PADOFFSET => undef,
+long => undef,
);