diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-01 21:17:46 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-01 21:17:46 +0000 |
| commit | 5b9c067131ee63b4afa00d1d71c771377deb6ff9 (patch) | |
| tree | f0d23e7597d8b97766a275feb1effc1c8360e3bb /scope.h | |
| parent | def9038f0e6b68e6331316ef6cd457a2bf75dab6 (diff) | |
| download | perl-5b9c067131ee63b4afa00d1d71c771377deb6ff9.tar.gz | |
Automatically set HINT_LOCALIZE_HH whenever %^H is modified.
p4raw-id: //depot/perl@27666
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -153,7 +153,7 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. SSCHECK(4); \ if (PL_hints & HINT_LOCALIZE_HH) { \ SSPUSHPTR(GvHV(PL_hintgv)); \ - GvHV(PL_hintgv) = newHVhv(GvHV(PL_hintgv)); \ + GvHV(PL_hintgv) = Perl_hv_copy_hints_hv(aTHX_ GvHV(PL_hintgv)); \ } \ if (PL_compiling.cop_hints) { \ PL_compiling.cop_hints->refcounted_he_refcnt++; \ |