omit . on Rat with 0 fractional digits

rakudo · Feb 14, 2015 · 8862eb3 · 8862eb3
1 parent 9c2dc10
commit 8862eb3
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/core/Rational.pm b/src/core/Rational.pm
@@ -102,9 +102,11 @@ my role Rational[::NuT, ::DeT] does Real {
                     $s ~= ($i+1).base($base) if $x == 0; # never happens?
                 }
             }
-            $s ~= '.';
-            state @digits = '0'..'9', 'A'..'Z';
-            $s ~= @digits[@f].join;
+            if @f {
+                $s ~= '.';
+                state @digits = '0'..'9', 'A'..'Z';
+                $s ~= @digits[@f].join;
+            }
         }
         $s;
     }