diff options
| author | Yves Orton <demerphq@gmail.com> | 2023-01-31 05:01:53 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2023-02-01 09:53:44 +0800 |
| commit | 6abce8468c57a533bc8160fc30734708c2452aea (patch) | |
| tree | 38725074f7446faaa00b0137f0d4b9e610a201e5 /embed.h | |
| parent | d404f73baa29d5697ed2cac768de015217d5e819 (diff) | |
| download | perl-6abce8468c57a533bc8160fc30734708c2452aea.tar.gz | |
embed.pl - the 's', 'S', 'i' and 'I' flags are mutually exclusive
We had a bug where we processed the first one in the flags definition. Sorting
the flags or rearranging them changes the output, which shouldn't happen.
This also fixes the handling and specification of PerlEnv_putenv(), which was
marked "si" when it should have been marked "i". This required changing its
implementation from a Perl_ prefix to a S_ prefix and regenerating.
I have run embed.pl in a loop with a local patch to shuffle the flags to see
if there were any other order dependencies. No output files changed so I
assume with this patch we are free of such bugs.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1645,7 +1645,7 @@ # define padname_dup(a,b) Perl_padname_dup(aTHX_ a,b) # define padnamelist_dup(a,b) Perl_padnamelist_dup(aTHX_ a,b) # if !defined(PERL_IMPLICIT_SYS) -# define PerlEnv_putenv(a) Perl_PerlEnv_putenv(aTHX_ a) +# define PerlEnv_putenv(a) S_PerlEnv_putenv(aTHX_ a) # endif /* !defined(PERL_IMPLICIT_SYS) */ # endif /* defined(USE_ITHREADS) */ # if defined(USE_LOCALE_COLLATE) |