start unrotting code

src/Perl5.pm

@@ -1,3 +1,6 @@
+use v6;
+use nqp;
+
 use Perl5::Grammar;
 use Perl5::ModuleLoader;
 
@@ -28,8 +31,8 @@ sub EXPORT(*@a) {
                 if nqp::defined($PERL5LIB) {
                     %INC<Perl5>.unshift: $*W.p6ize_recursive( nqp::split(':', $PERL5LIB) )
                 }
-                my $I := %*COMPILING<%?OPTIONS><I> ~~ Parcel
-                    ?? nqp::getattr(%*COMPILING<%?OPTIONS><I>, Parcel, '$!storage')
+                my $I := %*COMPILING<%?OPTIONS><I> ~~ List
+                    ?? nqp::getattr(%*COMPILING<%?OPTIONS><I>, List, '$!storage')
                     !! %*COMPILING<%?OPTIONS><I>;
                 if nqp::defined($I) {
                     if nqp::islist($I) {

src/Perl5/Actions.pm

@@ -1876,7 +1876,7 @@ class Perl5::Actions does STDActions {
                         HLL::Compiler.lineof($/.orig, $/.from, :cache(1)));
             }
             else {
-                $past := $*W.add_string_constant(nqp::getlexdyn('$?FILES') // '<unknown file>');
+                $past := $*W.add_string_constant(nqp::getlexdyn('$*FILES') // '<unknown file>');
             }
         }
         elsif +@name > 1 {
@@ -2357,7 +2357,7 @@ class Perl5::Actions does STDActions {
             # Install in lexpad and in package, and set up code to
             # re-bind it per invocation of its outer.
             $*W.install_lexical_symbol($outer, $name, $code, :clone(1));
-            $*W.install_package_symbol($*PACKAGE, $name, $code);
+            $*W.install_package_symbol_unchecked($*PACKAGE, $name, $code);
             $outer[0].push(QAST::Op.new(
                 :op('bindkey'),
                 QAST::Op.new( :op('who'), QAST::WVal.new( :value($*PACKAGE) ) ),
@@ -2613,7 +2613,7 @@ class Perl5::Actions does STDActions {
         }
         elsif $*SCOPE eq 'our' || $*SCOPE eq '' {
             $*W.install_lexical_symbol($outer, '&' ~ $name, $code, :clone(1));
-            $*W.install_package_symbol($*PACKAGE, '&' ~ $name, $code);
+            $*W.install_package_symbol_unchecked($*PACKAGE, '&' ~ $name, $code);
         }
     }
 
@@ -3391,7 +3391,7 @@ class Perl5::Actions does STDActions {
 
     method term:sym<__FILE__>($/) {
         $V5DEBUG && say("term:sym<__FILE__>($/)");
-        make $*W.add_string_constant(nqp::unbox_s(nqp::ifnull(nqp::getlexdyn('$?FILES'), '<unknown file>')));
+        make $*W.add_string_constant(nqp::unbox_s(nqp::ifnull(nqp::getlexdyn('$*FILES'), '<unknown file>')));
     }
 
     method term:sym<__PACKAGE__>($/) {
@@ -5061,7 +5061,7 @@ class Perl5::Actions does STDActions {
     # This is the hook where, in the future, we'll use this as the hook to check
     # if we have a proto or other declaration in scope that states that this sub
     # has a signature of the form :(\|$parcel), in which case we don't promote
-    # the Parcel to a Capture when calling it. For now, we just worry about the
+    # the List to a Capture when calling it. For now, we just worry about the
     # special case, return.
     sub capture_or_parcel(Mu $args, $name) {
         $V5DEBUG && say("sub capture_or_parcel($name)");
@@ -5903,7 +5903,7 @@ class Perl5::RegexActions does STDActions {
         }
 
         my $capnames := capnames($qast, 0);
-        $capnames    := nqp::getattr($capnames, EnumMap, '$!storage');
+        $capnames    := nqp::getattr($capnames, Map, '$!storage');
         self.store_regex_caps($code_obj, $block, $capnames);
         self.store_regex_nfa($code_obj, $block, QRegex::NFA.new.addnode($qast));
 
@@ -5999,7 +5999,7 @@ class Perl5::RegexActions does STDActions {
     # Stores the captures info for a regex.
     method store_regex_caps($code_obj, Mu $block, $caps is rw) {
         $V5DEBUG && say("store_regex_caps()");
-        $code_obj.SET_CAPS(nqp::getattr($caps, EnumMap, '$!storage'));
+        $code_obj.SET_CAPS(nqp::getattr($caps, Map, '$!storage'));
     }
 
     method store_regex_nfa($code_obj, Mu $block, Mu $nfa) {

src/Perl5/AnyDBM_File.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module AnyDBM_File {
     #~ our sub subname { ... }

src/Perl5/App/Prove.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module App::Prove {
     #~ our sub subname { ... }

src/Perl5/App/Prove/State.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module App::Prove::State {
     #~ our sub subname { ... }

src/Perl5/App/Prove/State/Result.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module App::Prove::State::Result {
     #~ our sub subname { ... }

src/Perl5/App/Prove/State/Result/Test.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module App::Prove::State::Result::Test {
     #~ our sub subname { ... }

src/Perl5/Archive/Extract.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module Archive::Extract {
     #~ our sub subname { ... }

src/Perl5/Archive/Tar.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module Archive::Tar {
     #~ our sub subname { ... }

src/Perl5/Archive/Tar/File.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module Archive::Tar::File {
     #~ our sub subname { ... }

src/Perl5/Attribute/Handlers.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module Attribute::Handlers {
     #~ our sub subname { ... }

src/Perl5/AutoLoader.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module AutoLoader {
     #~ our sub subname { ... }

src/Perl5/AutoSplit.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module AutoSplit {
     #~ our sub subname { ... }

src/Perl5/B.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B {
     #~ our sub subname { ... }

src/Perl5/B/Concise.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B::Concise {
     #~ our sub subname { ... }

src/Perl5/B/Debug.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B::Debug {
     #~ our sub subname { ... }

src/Perl5/B/Deparse.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B::Deparse {
     #~ our sub subname { ... }

src/Perl5/B/Lint.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B::Lint {
     #~ our sub subname { ... }

src/Perl5/B/Lint/Debug.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B::Lint::Debug {
     #~ our sub subname { ... }

src/Perl5/B/Showlex.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B::Showlex {
     #~ our sub subname { ... }

src/Perl5/B/Terse.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B::Terse {
     #~ our sub subname { ... }

src/Perl5/B/Xref.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module B::Xref {
     #~ our sub subname { ... }

src/Perl5/Benchmark.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module Benchmark {
     #~ our sub subname { ... }

src/Perl5/CGI.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI {
     #~ our sub subname { ... }

src/Perl5/CGI/Apache.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI::Apache {
     #~ our sub subname { ... }

src/Perl5/CGI/Carp.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI::Carp {
     #~ our sub subname { ... }

src/Perl5/CGI/Cookie.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI::Cookie {
     #~ our sub subname { ... }

src/Perl5/CGI/Fast.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI::Fast {
     #~ our sub subname { ... }

src/Perl5/CGI/Pretty.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI::Pretty {
     #~ our sub subname { ... }

src/Perl5/CGI/Push.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI::Push {
     #~ our sub subname { ... }

src/Perl5/CGI/Switch.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI::Switch {
     #~ our sub subname { ... }

src/Perl5/CGI/Util.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CGI::Util {
     #~ our sub subname { ... }

src/Perl5/CPAN.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN {
     #~ our sub subname { ... }

src/Perl5/CPAN/Debug.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::Debug {
     #~ our sub subname { ... }

src/Perl5/CPAN/Distroprefs.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::Distroprefs {
     #~ our sub subname { ... }

src/Perl5/CPAN/FirstTime.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::FirstTime {
     #~ our sub subname { ... }

src/Perl5/CPAN/HandleConfig.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::HandleConfig {
     #~ our sub subname { ... }

src/Perl5/CPAN/Kwalify.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::Kwalify {
     #~ our sub subname { ... }

src/Perl5/CPAN/Nox.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::Nox {
     #~ our sub subname { ... }

src/Perl5/CPAN/Queue.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::Queue {
     #~ our sub subname { ... }

src/Perl5/CPAN/Tarzip.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::Tarzip {
     #~ our sub subname { ... }

src/Perl5/CPAN/Version.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPAN::Version {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Backend.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Backend {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Backend/RV.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Backend::RV {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Config.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Config {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Configure.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Configure {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Dist.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Dist {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Dist/Autobundle.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Dist::Autobundle {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Dist/Base.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Dist::Base {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Dist/Build.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Dist::Build {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Dist/Build/Constants.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Dist::Build::Constants {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Dist/MM.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Dist::MM {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Dist/Sample.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Dist::Sample {
     #~ our sub subname { ... }

src/Perl5/CPANPLUS/Error.pm

@@ -1,4 +1,4 @@
-use v6.0.0;
+use v6;
 
 module CPANPLUS::Error {
     #~ our sub subname { ... }