This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
op.c:ck_sort: Restore HINT_LOCALIZE_HH check
authorFather Chrysostomos <sprout@cpan.org>
Wed, 26 Jun 2013 04:47:44 +0000 (21:47 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 26 Jun 2013 04:47:44 +0000 (21:47 -0700)
I remove this by mistake in commit 354dd559d99.  It makes no
difference to the behaviour.  This check is just for efficiency.

op.c

diff --git a/op.c b/op.c
index aaebdaa..41d8c92 100644 (file)
--- a/op.c
+++ b/op.c
@@ -9657,7 +9657,8 @@ Perl_ck_sort(pTHX_ OP *o)
 {
     dVAR;
     OP *firstkid;
 {
     dVAR;
     OP *firstkid;
-    HV * const hinthv = GvHV(PL_hintgv);
+    HV * const hinthv =
+       PL_hints & HINT_LOCALIZE_HH ? GvHV(PL_hintgv) : NULL;
 
     PERL_ARGS_ASSERT_CK_SORT;
 
 
     PERL_ARGS_ASSERT_CK_SORT;