This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/sprintf: Add Warning, Replace: pragma
authorKarl Williamson <khw@cpan.org>
Thu, 4 Jul 2019 20:24:15 +0000 (14:24 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:28 +0000 (16:51 -0600)
This really shouldn't be used; instead snprintf()

(cherry picked from commit c36539f5e553c48412c1d4a770359097c3070f6e)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/sprintf

index 8d45411..e11bf3a 100644 (file)
@@ -18,6 +18,12 @@ my_sprintf
 #if !defined(my_sprintf)
 #if { NEED my_sprintf }
 
+/* Warning: my_sprintf
+   It's safer to use my_snprintf instead
+*/
+
+/* Replace my_sprintf with my_snprintf */
+
 int
 my_sprintf(char *buffer, const char* pat, ...)
 {