diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-06-08 22:48:00 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-06-08 22:48:00 +0000 |
commit | d526390560c1ae208a087ad4d648b08895f79f8f (patch) | |
tree | 461f01c4dc1a61eaf8c2ccaaee2b249d7e873872 /pp_sys.c | |
parent | 940132f3fde5cf1c168dc34e3a3fea4e825977d5 (diff) | |
download | perl-d526390560c1ae208a087ad4d648b08895f79f8f.tar.gz |
More SvPV consting
p4raw-id: //depot/perl@24769
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3449,7 +3449,7 @@ PP(pp_fttext) really_filename: PL_statgv = Nullgv; PL_laststype = OP_STAT; - sv_setpv(PL_statname, SvPV_nolen(sv)); + sv_setpv(PL_statname, SvPV_nolen_const(sv)); if (!(fp = PerlIO_open(SvPVX_const(PL_statname), "r"))) { if (ckWARN(WARN_NEWLINE) && strchr(SvPV_nolen(PL_statname), '\n')) Perl_warner(aTHX_ packWARN(WARN_NEWLINE), PL_warn_nl, "open"); |