Make constant promotion null-clean

When an optimised constant is promoted to a CV, the name’s length can
be passed straight to newCONSTSUB_flags, as it now has a length param-
eter which it passes to newXS_len_flags.

1 files changed, 13 insertions, 1 deletions

diff --git a/t/op/gv.t b/t/op/gv.t
index b681638d51..0cb0d3985e 100644
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -12,7 +12,7 @@ BEGIN {
 
 use warnings;
 
-plan( tests => 238 );
+plan( tests => 239 );
 
 # type coercion on assignment
 $foo = 'foo';
@@ -918,6 +918,18 @@ package HTTP::MobileAttribute::Plugin::Locator {
        "stash elem for slot is not freed prematurely";
 }
 
+# Check that constants promoted to CVs point to the right GVs when the name
+# contains a null.
+package lrcg {
+  use constant x => 3;
+  # These two lines abuse the optimisation that copies the scalar ref from
+  # one stash element to another, to get a constant with a null in its name
+  *{"yz\0a"} = \&{"x"};
+  my $ref = \&{"yz\0a"};
+  ::ok !exists $lrcg::{yz},
+    'constants w/nulls in their names point 2 the right GVs when promoted';
+}
+
 __END__
 Perl
 Rules