develooper Front page | perl.perl5.changes | Postings from November 2010

[perl.git] branch blead, updated. v5.13.7-210-g3353de2

From:
Nicholas Clark
Date:
November 30, 2010 05:35
Subject:
[perl.git] branch blead, updated. v5.13.7-210-g3353de2
Message ID:
E1PNQMF-0000Vl-Jf@camel.ams6.corp.booking.com
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/3353de27e6a3954b5d45465efd422b1b614675dd?hp=17e8b60cd2a564ab6f4bed82ccda0c92a424ae9f>

- Log -----------------------------------------------------------------
commit 3353de27e6a3954b5d45465efd422b1b614675dd
Author: Nicholas Clark <nick@ccl4.org>
Date:   Tue Nov 30 13:16:11 2010 +0000

    In S_scan_const(), use my_snprintf() instead of my_sprintf().
    
    Paranoid linkers warn about using sprintf(), and rightly so.
-----------------------------------------------------------------------

Summary of changes:
 toke.c |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/toke.c b/toke.c
index d2868c2..476b331 100644
--- a/toke.c
+++ b/toke.c
@@ -3203,7 +3203,8 @@ S_scan_const(pTHX_ char *start)
 			    /* Convert first code point to hex, including the
 			     * boiler plate before it */
 			    output_length =
-				my_sprintf(hex_string, "\\N{U+%X", (unsigned int) uv);
+				my_snprintf(hex_string, sizeof(hex_string),
+					    "\\N{U+%X", (unsigned int) uv);
 
 			    /* Make sure there is enough space to hold it */
 			    d = off + SvGROW(sv, off
@@ -3227,7 +3228,8 @@ S_scan_const(pTHX_ char *start)
 				}
 
 				output_length =
-				    my_sprintf(hex_string, ".%X", (unsigned int) uv);
+				    my_snprintf(hex_string, sizeof(hex_string),
+						".%X", (unsigned int) uv);
 
 				d = off + SvGROW(sv, off
 						     + output_length

--
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About