diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-12-26 13:12:44 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-12-26 13:16:54 +0100 |
| commit | 20189146be79a0596543441fa369c6bf7f85103f (patch) | |
| tree | 0e17232830618919d800925bb0bc6ef966ea53dd /proto.h | |
| parent | e7049783a827d931f30447582253605eb3b93210 (diff) | |
| download | perl-20189146be79a0596543441fa369c6bf7f85103f.tar.gz | |
Better fix for bug #6665
Add a parameter to S_incpush to indicate if the new directory should be
appended or prepended to @INC, and use it set to TRUE when parsing the
shebang line.
There is also a better version of the test.
This replaces commit ccb8f6a64f3dd06b4360bc27c194b28e6766a6ad.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4753,7 +4753,7 @@ STATIC void S_find_beginning(pTHX_ SV* linestr_sv, PerlIO *rsfp) assert(linestr_sv); assert(rsfp) STATIC void S_forbid_setid(pTHX_ const char flag, const bool suidscript); -STATIC void S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, bool canrelocate); +STATIC void S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, bool canrelocate, bool unshift); STATIC void S_init_interp(pTHX); STATIC void S_init_ids(pTHX); STATIC void S_init_main_stash(pTHX); |