diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-10-21 21:40:06 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-10-21 21:43:27 +0100 |
| commit | 5cc814fd5c2c076b31431eb7a8f9e17719c5baae (patch) | |
| tree | 5e03884bc0d3e32bfdabd6f461d12a4160975fc0 /proto.h | |
| parent | 1d8a41fe27d5f97658dce0925f99638fd69fcba9 (diff) | |
| download | perl-5cc814fd5c2c076b31431eb7a8f9e17719c5baae.tar.gz | |
Remove the PERLIO * argument to S_filter_gets(), as it's always PL_rsfp
Conceptually it's also wrong, as if there are source filters, the passed-in
file handle is not passed up the stack of filters for the topmost filter to
use to read from. It was in the parameter list from the first creation of
filter_gets() in 16d20bd98cd29be76029ebf04027a7edd34d817b, when calls to
sv_gets() were replaced by it.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -5848,12 +5848,11 @@ STATIC I32 S_sublex_push(pTHX) STATIC I32 S_sublex_start(pTHX) __attribute__warn_unused_result__; -STATIC char * S_filter_gets(pTHX_ SV *sv, PerlIO *fp, STRLEN append) +STATIC char * S_filter_gets(pTHX_ SV *sv, STRLEN append) __attribute__warn_unused_result__ - __attribute__nonnull__(pTHX_1) - __attribute__nonnull__(pTHX_2); + __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_FILTER_GETS \ - assert(sv); assert(fp) + assert(sv) STATIC HV * S_find_in_my_stash(pTHX_ const char *pkgname, STRLEN len) __attribute__warn_unused_result__ |