diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-10-09 20:06:57 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-09 20:06:57 +0000 |
| commit | 0786552a25399b1ea99930f794f6bf1973823a24 (patch) | |
| tree | 2eb83e0f108ce251d965a7f5376728055ac8cdf9 /proto.h | |
| parent | 50b8ed39c726ebc47ad88ac004e8c85b9833a11a (diff) | |
| download | perl-0786552a25399b1ea99930f794f6bf1973823a24.tar.gz | |
Remove the strlen in doopen_pm() by passing in the length. (As we know
it already in the caller). Remove the unchanging mode parameter from
doopen_pm() and check_type_and_open(), as it's always PERL_SCRIPT_MODE.
p4raw-id: //depot/perl@32086
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -3538,15 +3538,13 @@ STATIC void S_save_lines(pTHX_ AV *array, SV *sv) __attribute__nonnull__(pTHX_2); STATIC bool S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq); -STATIC PerlIO * S_check_type_and_open(pTHX_ const char *name, const char *mode) +STATIC PerlIO * S_check_type_and_open(pTHX_ const char *name) __attribute__warn_unused_result__ - __attribute__nonnull__(pTHX_1) - __attribute__nonnull__(pTHX_2); + __attribute__nonnull__(pTHX_1); -STATIC PerlIO * S_doopen_pm(pTHX_ const char *name, const char *mode) +STATIC PerlIO * S_doopen_pm(pTHX_ const char *name, const STRLEN namelen) __attribute__warn_unused_result__ - __attribute__nonnull__(pTHX_1) - __attribute__nonnull__(pTHX_2); + __attribute__nonnull__(pTHX_1); STATIC bool S_path_is_absolute(const char *name) __attribute__warn_unused_result__ |