Small optimization

Don't decont if &EXPORT returned a pure Map. It already contains deconted values.
rakudo · Jun 24, 2019 · 28d8eb0 · 28d8eb0
1 parent b87f797
commit 28d8eb0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -1068,7 +1068,7 @@ class Perl6::World is HLL::World {
                 my $Map := self.find_symbol(['Map'], :setting-only);
                 if nqp::istype($result, $Map) {
                     my $storage := $result.hash.FLATTENABLE_HASH();
-                    self.import($/, $storage, $package_source_name, :need-decont);
+                    self.import($/, $storage, $package_source_name, :need-decont(!($result =:= $Map)));
 #                    $/.check_LANG_oopsies("do_import");
                 }
                 else {