From: Steve Grazzini <grazz@pobox.com>
Date: Wed, 11 Jun 2003 00:46:47 +0000 (-0400)
Subject: Patch for a warning emitted twice, from :
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f93414403b07cda0cb271cd283f020f4981ff2c8;p=p5sagit%2Fp5-mst-13.2.git

Patch for a warning emitted twice, from :
Subject: [PATCH: perl@19733] "perldoc -f -X" + "extra warning from -T"
Message-ID: <20030611044647.GA16696@grazzini.net>

p4raw-id: //depot/perl@19751
---

diff --git a/pp_sys.c b/pp_sys.c
index ae6d986..d9a8087 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3325,7 +3325,7 @@ PP(pp_fttext)
 	PL_laststype = OP_STAT;
 	sv_setpv(PL_statname, SvPV(sv, n_a));
 	if (!(fp = PerlIO_open(SvPVX(PL_statname), "r"))) {
-	    if (ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, n_a), '\n'))
+	    if (ckWARN(WARN_NEWLINE) && strchr(SvPV(PL_statname, n_a), '\n'))
 		Perl_warner(aTHX_ packWARN(WARN_NEWLINE), PL_warn_nl, "open");
 	    RETPUSHUNDEF;
 	}