From 6af654855041e350ad1ba2c39f0be19af24f50c6 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 4 Aug 2004 06:55:46 +0000 Subject: Remove the "Newline in left-justified string" warning. p4raw-id: //depot/perl@23192 --- sv.c | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index e71c03c68b..ce16807901 100644 --- a/sv.c +++ b/sv.c @@ -10049,14 +10049,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV p = SvEND(sv); *p = '\0'; } - /* Use memchr() instead of strchr(), as eptr is not guaranteed */ - /* to point to a null-terminated string. */ - if (left && ckWARN(WARN_PRINTF) && memchr(eptr, '\n', elen) && - (PL_op->op_type == OP_PRTF || PL_op->op_type == OP_SPRINTF)) - Perl_warner(aTHX_ packWARN(WARN_PRINTF), - "Newline in left-justified string for %sprintf", - (PL_op->op_type == OP_PRTF) ? "" : "s"); - + need = (have > width ? have : width); gap = need - have; -- cgit v1.2.1