diff options
| author | Steve Grazzini <grazz@pobox.com> | 2003-06-10 20:46:47 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-06-12 20:25:41 +0000 |
| commit | f93414403b07cda0cb271cd283f020f4981ff2c8 (patch) | |
| tree | cd3db7ccad7ca3a104a745bef7daaa4da0b48f05 /pp_sys.c | |
| parent | cab6ddb148f81f3a8ba8061eb3d06dfdbd4d2132 (diff) | |
| download | perl-f93414403b07cda0cb271cd283f020f4981ff2c8.tar.gz | |
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
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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; } |