Fix computing delays

root/sbin/e-smith/expire-accounts

@@ -99,7 +99,7 @@ foreach my $user ($a->users){
     push @lock, $user->key;
   }
   else{
-    my $remaining = ($exp - $now)->in_units('days');
+    my $remaining = $exp->delta_days($now)->in_units('days');
     print $user->key . ": Account will expire on $lock_date ($remaining days)\n" if $debug;
     $rem->{$user->key} = $remaining if $remaining < $warn_delay;
   }
@@ -156,7 +156,7 @@ foreach my $user (keys %$rem){
       month => $2,
       day   => $3,
     );
-    if ( ($last_notif - $now)->in_units('days') < $days_between_warn ){
+    if ( $last_notif->delta_days($now)->in_units('days') < $days_between_warn ){
       next;
     }
   }

root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm

@@ -103,7 +103,7 @@ sub print_user_table {
                   day   => $3
                 );
               };
-              $days_left = ($lock_on - $now)->in_units('days') if ($lock_on);
+              $days_left = $lock_on->delta_days($now)->in_units('days') if ($lock_on);
             }
             my $addr = ($delivery eq 'local') ? '' : $fwd;
              print $q->Tr(
@@ -146,7 +146,7 @@ sub print_user_table {
               };
               if ($locked_date){
                 my $delete_on = $locked_date->add(days => $delete_in);
-                $days_left = ($delete_on - $now)->in_units('days');
+                $days_left = $delete_on->delta_days($now)->in_units('days');
               }
             }
             my $addr = ($delivery eq 'local') ? '' : $fwd;