Correct (Set|SetHash).perl

An empty Set/SetHash was shown as "Set()"/"SetHash()", which would create a Set/SetHash with Any as the only element when EVALled.
rakudo · Oct 29, 2017 · af3624d · af3624d
1 parent 3c4041e
commit af3624d
Showing 1 changed file with 9 additions and 9 deletions.
diff --git a/src/core/Setty.pm b/src/core/Setty.pm
@@ -158,16 +158,16 @@ my role Setty does QuantHash {
         )
     }
     multi method perl(Setty:D $ : --> Str:D) {
-        nqp::concat(
+        nqp::if(
+          nqp::eqaddr(self,set()),
+          'set()',
           nqp::concat(
-            nqp::if(
-              nqp::istype(self,Set),
-              'set(',
-              nqp::concat(self.^name,'(')
-            ),
-            nqp::join(",",Rakudo::QuantHash.RAW-VALUES-MAP(self, *.perl))
-          ),
-          ')'
+            nqp::concat(self.^name,'.new('),
+            nqp::concat(
+              nqp::join(",",Rakudo::QuantHash.RAW-VALUES-MAP(self, *.perl)),
+              ')'
+            )
+          )
         )
     }