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 /proto.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 'proto.h')
| -rw-r--r-- | proto.h | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -707,12 +707,6 @@ PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode) #define PERL_ARGS_ASSERT_DO_BINMODE \ assert(fp) -PERL_CALLCONV void Perl_do_chomp(pTHX_ SV *retval, SV *sv, bool chomping) - __attribute__nonnull__(pTHX_1) - __attribute__nonnull__(pTHX_2); -#define PERL_ARGS_ASSERT_DO_CHOMP \ - assert(retval); assert(sv) - PERL_CALLCONV bool Perl_do_close(pTHX_ GV* gv, bool not_implicit); PERL_CALLCONV void Perl_do_dump_pad(pTHX_ I32 level, PerlIO *file, PADLIST *padlist, int full) __attribute__nonnull__(pTHX_2); @@ -5969,6 +5963,12 @@ STATIC void S_usage(pTHX_ const char *name) #endif #if defined(PERL_IN_PP_C) +STATIC void S_do_chomp(pTHX_ SV *retval, SV *sv, bool chomping) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2); +#define PERL_ARGS_ASSERT_DO_CHOMP \ + assert(retval); assert(sv) + STATIC OP* S_do_delete_local(pTHX); STATIC SV* S_refto(pTHX_ SV* sv) __attribute__warn_unused_result__ |