diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-23 20:56:38 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-02-23 20:56:38 +0000 |
| commit | 35d904946636411814f392bec019cad90a357c0a (patch) | |
| tree | 493cadae3c7b8510df80e655ab4dad3ccc385def /pp_ctl.c | |
| parent | 90f5826e78891b7633d6b153f416059ce7d36f9e (diff) | |
| download | perl-35d904946636411814f392bec019cad90a357c0a.tar.gz | |
Fix bug #26910: hints were not propagated into (?{...})
blocks, except the utf8 pragma.
p4raw-id: //depot/perl@22364
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -2714,7 +2714,6 @@ Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, char *code, PAD** padp) #else SAVEVPTR(PL_op); #endif - PL_hints &= HINT_UTF8; /* we get here either during compilation, or via pp_regcomp at runtime */ runtime = IN_PERL_RUNTIME; |