1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t
index ee250e111d..011e543d1b 100755
--- a/t/op/local.t
+++ b/t/op/local.t
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(. ../lib);
     require './test.pl';
 }
-plan tests => 122;
+plan tests => 123;
 
 my $list_assignment_supported = 1;
 
@@ -451,6 +451,11 @@ sub f { ok(0 == $[); }
     is($h{'k1'},111);
 }
 
+like( runperl(stderr => 1,
+              prog => 'use constant foo => q(a);' .
+                      'index(q(a), foo);' .
+                      'local *g=${::}{foo};print "ok";'), "ok", "[perl #52740]");
+
 # Keep this test last, as it can SEGV
 {
     local *@;