diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-12-27 12:56:12 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-12-27 12:56:12 +0000 |
| commit | 81745e4ea46c80112d1a0b69e99c8111889ce6d1 (patch) | |
| tree | 8908db476bdfee8077bb3a106ce6800875d91901 /embed.h | |
| parent | fa54efaecf052db2a7799ec4c2433eeb1576402e (diff) | |
| download | perl-81745e4ea46c80112d1a0b69e99c8111889ce6d1.tar.gz | |
Move do_chomp() from pp.c to doop.c, and make it static.
It was never part of the public API, and only ever used by pp_{s,}cho{,m}p.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -974,7 +974,6 @@ #define delete_eval_scope() Perl_delete_eval_scope(aTHX) #define die_unwind(a) Perl_die_unwind(aTHX_ a) #define do_aexec5(a,b,c,d,e) Perl_do_aexec5(aTHX_ a,b,c,d,e) -#define do_chomp(a,b,c) Perl_do_chomp(aTHX_ a,b,c) #define do_dump_pad(a,b,c,d) Perl_do_dump_pad(aTHX_ a,b,c,d) #define do_eof(a) Perl_do_eof(aTHX_ a) #define do_execfree() Perl_do_execfree(aTHX) @@ -1712,6 +1711,7 @@ #define usage(a) S_usage(aTHX_ a) # endif # if defined(PERL_IN_PP_C) +#define do_chomp(a,b,c) S_do_chomp(aTHX_ a,b,c) #define do_delete_local() S_do_delete_local(aTHX) #define refto(a) S_refto(aTHX_ a) # endif |