#!./perl -w
BEGIN {
chdir 't' if -d 't';
}
is(
);
is(
);
{
is(
"\xe4 ",
);
}
# Used to mangle PL_sv_undef
'print sprintf "xxx%n\n"; print undef',
'Modification of a read-only value attempted at - line 1.',
);
# check %NNN$ for range bounds, especially negative 2's complement
{
$warn++
}
else {
$bad++
}
};
}
{
my $bad = 0;
unless ($_[0] =~ /^Invalid conversion in sprintf/ ||
warn $_[0];
$bad++;
}
};
}
}