diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-03 23:21:37 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-03 23:21:37 +0000 |
| commit | faef540c8909a0bd99951f9de3e335c74b33dad1 (patch) | |
| tree | dd42b0f5c4a9fa083d74b28df09f3a2b3084a705 /proto.h | |
| parent | 97bd566409a94bf7961734af3ac8131276ce086b (diff) | |
| download | perl-faef540c8909a0bd99951f9de3e335c74b33dad1.tar.gz | |
S_find_beginning is only called from one place, so by hoisting the
forbid_setid check for -x into the caller, we can eliminate the
suidscript parameter from S_find_beginning.
p4raw-id: //depot/perl@27076
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3167,7 +3167,7 @@ PERL_CALLCONV void Perl_Slab_Free(pTHX_ void *op) #endif #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT) -STATIC void S_find_beginning(pTHX_ int suidscript); +STATIC void S_find_beginning(pTHX); STATIC void S_forbid_setid(pTHX_ char flag, int suidscript); STATIC void S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, bool canrelocate); STATIC void S_init_interp(pTHX); |