diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-31 13:49:26 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-31 13:49:26 +0000 |
| commit | 1d51329b7b2db5dad38362dae2635cd5f623f6a3 (patch) | |
| tree | 536b49cbb6c98fb034ff58dba5df65fc009e32d0 /toke.c | |
| parent | e3f73d4edc1b72464d0a94ac202f6e1bd3daf149 (diff) | |
| download | perl-1d51329b7b2db5dad38362dae2635cd5f623f6a3.tar.gz | |
Make S_readpipe_override() compile with threads; regenerate perlapi.pod
p4raw-id: //depot/perl@29169
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2854,7 +2854,7 @@ S_find_in_my_stash(pTHX_ const char *pkgname, I32 len) * optree, provided sublex_start() is called afterwards. */ STATIC void -S_readpipe_override() +S_readpipe_override(pTHX) { GV **gvp; GV *gv_readpipe = gv_fetchpvs("readpipe", GV_NOTQUAL, SVt_PVCV); @@ -4987,7 +4987,7 @@ Perl_yylex(pTHX) no_op("Backticks",s); if (!s) missingterm(NULL); - S_readpipe_override(); + readpipe_override(aTHX); TERM(sublex_start()); case '\\': @@ -6306,7 +6306,7 @@ Perl_yylex(pTHX) s = scan_str(s,!!PL_madskills,FALSE); if (!s) missingterm(NULL); - S_readpipe_override(); + readpipe_override(aTHX); TERM(sublex_start()); case KEY_return: |