Restore Enum.perl(:arglist) behavior

fixes S32-hash/perl.t
rakudo · Aug 28, 2015 · 2178f78 · 2178f78
1 parent 1a05c67
commit 2178f78
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Enum.pm b/src/core/Enum.pm
@@ -41,7 +41,7 @@ my class Enum does Associative {
 
     multi method perl(Enum:D: :$arglist) {
         my $result;
-        if not %*perlseen<TOP> { my %*perlseen = :TOP ; return self.perl }
+        if not %*perlseen<TOP> { my %*perlseen = :TOP ; return self.perl(:$arglist) }
         if %*perlseen{self.WHICH} { %*perlseen{self.WHICH} = 2; return "Pair_{self.WHERE}" }
         %*perlseen{self.WHICH} = 1;
         if nqp::istype($!key, Enum) {