diff options
| author | Andy Lester <andy@petdance.com> | 2005-07-28 09:09:56 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-07-29 08:31:51 +0000 |
| commit | 2d03de9c8d99c75ed163fdcdde85a243a29ccc8c (patch) | |
| tree | 78d3e20180d05bcabfa8b3f28e74aa3a94e05edf /doio.c | |
| parent | 7adf7a021c614ccf36e9216ce29d1eafb15992bf (diff) | |
| download | perl-2d03de9c8d99c75ed163fdcdde85a243a29ccc8c.tar.gz | |
More embed.fnc goodness
Message-ID: <20050728190956.GB607@petdance.com>
p4raw-id: //depot/perl@25243
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -747,7 +747,7 @@ Perl_nextargv(pTHX_ register GV *gv) #endif Uid_t fileuid; Gid_t filegid; - IO *io = GvIOp(gv); + IO * const io = GvIOp(gv); if (!PL_argvoutgv) PL_argvoutgv = gv_fetchpv("ARGVOUT",TRUE,SVt_PVIO); @@ -802,9 +802,9 @@ Perl_nextargv(pTHX_ register GV *gv) continue; } if (*PL_inplace) { - char *star = strchr(PL_inplace, '*'); + const char *star = strchr(PL_inplace, '*'); if (star) { - char *begin = PL_inplace; + const char *begin = PL_inplace; sv_setpvn(sv, "", 0); do { sv_catpvn(sv, begin, star - begin); @@ -2333,7 +2333,7 @@ PerlIO * Perl_start_glob (pTHX_ SV *tmpglob, IO *io) { dVAR; - SV *tmpcmd = NEWSV(55, 0); + SV * const tmpcmd = NEWSV(55, 0); PerlIO *fp; ENTER; SAVEFREESV(tmpcmd); |