Merge pull request #194 from mknos/printf-cfmt

printf: standard meaning of %c
briandfoy · Jul 7, 2023 · f0e76fd · f0e76fd
2 parents f7f4542 + 4ca8f78
commit f0e76fd
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/bin/printf b/bin/printf
@@ -27,6 +27,7 @@ unless (@ARGV) {
 
 my $format = shift;
 $format =~ s/\\v/\x0b/g; # escape \v not available in printf()
+$format =~ s/\%c/\%\.1s/g; # standard printf: %c == 1st char
 eval qq(printf "$format", \@ARGV);
 die if $@;