get rid of undef in the setting

rakudo · Nov 25, 2009 · f151334 · f151334
1 parent 2fc0a98
commit f151334
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/src/setting/Any-num.pm b/src/setting/Any-num.pm
@@ -407,9 +407,8 @@ multi sub sqrt(Any $x) {
     $x.Num.sqrt
 }
 
-proto sign($x) { sign($x) }
-multi sub sign(Any $x) {
-    defined($x) ?? $x.Num.sign !! undef;
+proto sign($x) {
+    defined($x) ?? $x.Num.sign !! Bool;
 }
 
 multi sub roots($x, $n) {

diff --git a/src/setting/Match.pm b/src/setting/Match.pm
@@ -48,8 +48,8 @@ class Match is also {
 
     method !_perl_quant($obj, $indent) {
         my $sp = ' ' x $indent;
-        if $obj ~~ undef {
-            take 'undef';
+        if !defined($obj) {
+            take '()';
         } elsif $obj ~~ Match {
             take $obj!_perl($indent + 3);
         } else {