12 sprintf("%.40g ",0.01),
13 sprintf("%.40g", 0.01)." ",
14 q(the sprintf "%.<number>g" optimization)
17 sprintf("%.40f ",0.01),
18 sprintf("%.40f", 0.01)." ",
19 q(the sprintf "%.<number>f" optimization)
22 chop(my $utf8_format = "%-3s\x{100}");
24 sprintf($utf8_format, "\xe4"),
26 q(width calculation under utf8 upgrade)
30 # Used to mangle PL_sv_undef
32 'print sprintf "xxx%n\n"; print undef',
33 'Modification of a read-only value attempted at - line 1.',
34 { switches => [ '-w' ] },
35 q(%n should not be able to modify read-only constants),