diff options
| author | Steven Schubiger <schubiger@cpan.org> | 2008-01-25 02:10:52 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-28 10:02:24 +0000 |
| commit | c9289b7b6da6fbd0919642909a950203eda422ad (patch) | |
| tree | d21811ec3a64eec69de88991b4c7df241fd049a9 /util.c | |
| parent | b900987b60cce8e0dffc3b8fd3835992d58ce664 (diff) | |
| download | perl-c9289b7b6da6fbd0919642909a950203eda422ad.tar.gz | |
util.c: some consting
Message-ID: <20080125001052.GA29980@refcnt.homeunix.org>
p4raw-id: //depot/perl@33083
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -425,7 +425,7 @@ Perl_ninstr(pTHX_ const char *big, const char *bigend, const char *little, const if (little >= lend) return (char*)big; { - char first = *little++; + const char first = *little++; const char *s, *x; bigend -= lend - little; OUTER: @@ -2213,7 +2213,7 @@ Perl_my_swabn(void *ptr, int n) } PerlIO * -Perl_my_popen_list(pTHX_ char *mode, int n, SV **args) +Perl_my_popen_list(pTHX_ const char *mode, int n, SV **args) { #if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(OS2) && !defined(VMS) && !defined(__OPEN_VM) && !defined(EPOC) && !defined(MACOS_TRADITIONAL) && !defined(NETWARE) && !defined(__LIBCATAMOUNT__) dVAR; @@ -2597,7 +2597,7 @@ Perl_my_fork(void) #ifdef DUMP_FDS void -Perl_dump_fds(pTHX_ char *s) +Perl_dump_fds(pTHX_ const char *const s) { int fd; Stat_t tmpstatbuf; |