}
for my $size ( 16, 32, 64 ) {
- if (exists $Config{"u${size}size"} and $Config{"u${size}size"} != ($size >> 3)) {
+ if (defined $Config{"u${size}size"} and $Config{"u${size}size"} != ($size >> 3)) {
push @valid_errors, qr/^Perl_my_$maybe_not_avail$size\(\) not available/;
}
}
my $p = eval { pack $junk1, @list2 };
skip "cannot pack '$type' on this perl", 12
if is_valid_error($@);
+ die "pack $junk1 failed: $@" if $@;
my $half = int( (length $p)/2 );
for my $move ('', "X$half", "X!$half", 'x1', 'x!8', "x$half") {