fix export bug

rakudo · May 8, 2012 · 4fd2558 · 4fd2558
1 parent 7a9b1e5
commit 4fd2558
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/traits.pm b/src/core/traits.pm
@@ -70,7 +70,8 @@ sub EXPORT_SYMBOL(\$exp_name, @tags, Mu \$sym) {
     my @export_packages = $*EXPORT;
     for pir::perl6ize_type__PP(@*PACKAGES) {
         unless .WHO.exists('EXPORT') {
-            .WHO<EXPORT> := anon package EXPORT { };
+            .WHO<EXPORT> := Metamodel::PackageHOW.new_type(:name('EXPORT'));
+            .WHO<EXPORT>.^compose;
         }
         @export_packages.push: .WHO<EXPORT>;
     }