Test for perl #43663

1 files changed, 9 insertions, 1 deletions

diff --git a/t/op/method.t b/t/op/method.t
index d6c81abd03..f84f6e2aeb 100644
--- a/t/op/method.t
+++ b/t/op/method.t
@@ -13,7 +13,7 @@ BEGIN {
 use strict;
 no warnings 'once';
 
-plan(tests => 84);
+plan(tests => 85);
 
 @A::ISA = 'B';
 @B::ISA = 'C';
@@ -358,3 +358,11 @@ is $kalled, 1, 'calling a class method via a magic variable';
 	"DESTROY creating a new reference to the object generates a warning."
     );
 }
+
+# [perl #43663]
+{
+    $::{"Just"} = \1;
+    sub Just::a_japh { return "$_[0] another Perl hacker," }
+    is eval { "Just"->a_japh }, "Just another Perl hacker,",
+	'constants do not interfere with class methods';
+}