diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-12-15 17:48:42 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-12-15 17:48:42 +0000 |
| commit | ce8abf5f5d2e5b19646ab17c24a3ea87c70428c8 (patch) | |
| tree | 9b13716c71da689a4c8ca1e2cd37692bcbf34739 /proto.h | |
| parent | ed4b2e6b8e3e407b046b3d57848a2e57898d7d60 (diff) | |
| download | perl-ce8abf5f5d2e5b19646ab17c24a3ea87c70428c8.tar.gz | |
Prevent require() from attempting to open directories and block
devices. This fixes RT #24404.
p4raw-id: //depot/perl@26373
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -3285,6 +3285,11 @@ STATIC void S_save_lines(pTHX_ AV *array, SV *sv) STATIC OP* S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) __attribute__warn_unused_result__; +STATIC PerlIO * S_check_type_and_open(pTHX_ const char *name, const char *mode) + __attribute__warn_unused_result__ + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_2); + STATIC PerlIO * S_doopen_pm(pTHX_ const char *name, const char *mode) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1) |