uncomment out file, make it compile

partcl · Jun 13, 2013 · e552619 · e552619
1 parent 1f25c4c
commit e552619
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/src/Partcl/Operators.pm b/src/Partcl/Operators.pm
@@ -1,9 +1,7 @@
-=begin operators
-
 sub &infix:<==>($a, $b) {
     # Try to do a numeric compare first (XXX this is integer for now)
     try {
-        return pir::set__iP($a) == pir::set__iP($b);
+        return +$a == +$b;
         CATCH {
             # Not numeric. Try as string...
             return $a eq $b;
@@ -30,6 +28,4 @@ sub &infix:<in>($check, @list) {
    return 0;
 }
 
-=end operators
-
 # vim: expandtab shiftwidth=4 ft=perl6: