Proper fix for RT #125398

Make sure we have an Any value_type when we set up the container info in the case of a non-existing variable and 'no strict' active.
rakudo · Dec 4, 2017 · e5b49ce · e5b49ce
1 parent 7522997
commit e5b49ce
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -1826,6 +1826,7 @@ class Perl6::World is HLL::World {
         self.handle_OFTYPE_for_pragma($var,'variables');
         my %cont_info  := self.container_type_info(NQPMu, $var<sigil>,
             $*OFTYPE ?? [$*OFTYPE.ast] !! [], []);
+        %cont_info<value_type> := self.find_symbol(['Any'], :setting-only);
         my $descriptor := self.create_container_descriptor(%cont_info<value_type>, 1, $name);
 
         nqp::die("auto_declare_var") unless nqp::objectid($*PACKAGE) == nqp::objectid($*LEAF.package);