Replace bitshift +> with div operator

Reads better (imho). Works around RT#121909 which is currently resulting in significant failures in S03-temporal on parrot.
rakudo · May 19, 2014 · d7ae021 · d7ae021
1 parent 277212e
commit d7ae021
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Temporal.pm b/src/core/Temporal.pm
@@ -40,10 +40,10 @@ my role Dateish {
         my int $day = $daycount.Int + 678881;
         my int $t = (4 * ($day + 36525)) div 146097 - 1;
         my int $year = 100 * $t;
-        $day = $day - (36524 * $t + ($t +> 2));
+        $day = $day - (36524 * $t + ($t div 4));
         $t = (4 * ($day + 366)) div 1461 - 1;
         $year = $year + $t;
-        $day = $day - (365 * $t + ($t +> 2));
+        $day = $day - (365 * $t + ($t div 4));
         my int $month = (5 * $day + 2) div 153;
         $day = $day - ((2 + $month * 153) div 5 - 1);
         if ($month > 9) {