Time::D: fix bug with setting values in negative diffs

pink-mist · Nov 1, 2016 · 09e4906 · 09e4906
1 parent 84b53d9
commit 09e4906
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/Time/D.pm b/lib/Time/D.pm
@@ -92,7 +92,11 @@ method _computed_setter ($d: $key, $new) {
 
     my $ct = Time::C->gmtime($d->comp);
     return $val, sub {
-        $ct->$key -= $val - $_[0];
+        if ($diff{sign} eq '-') {
+            $ct->$key -= $_[0] - $val;
+        } else {
+            $ct->$key -= $val - $_[0];
+        }
         $d->comp = $ct->epoch;
 
         return $d if defined $new;