if the upload date is not defined, update it

[debbugs.git] / bin / debbugs-loadsql

diff --git a/bin/debbugs-loadsql b/bin/debbugs-loadsql
index 870f712ae01509e19aeab72fd627bae84afa66ed..b1140794d08177390d60882b2527b2a1ec7a3e8f 100755 (executable)
--- a/bin/debbugs-loadsql
+++ b/bin/debbugs-loadsql
@@ -324,7 +324,7 @@ sub add_debinfo {
             }
             my $sp = $s->resultset('SrcPkg')->find_or_create({pkg => $srcname});
             # update the creation date if the data we have is earlier
-            my $ct_date = DateTime->from_epoch($f_stat->ctime);
+            my $ct_date = DateTime->from_epoch(epoch => $f_stat->ctime);
             if ($ct_date < $sp->creation) {
                 $sp->creation($ct_date);
                 $sp->last_modified(DateTime->now);
@@ -332,7 +332,7 @@ sub add_debinfo {
             }
             my $sv = $s->resultset('SrcVer')->find_or_create({src_pkg =>$sp->id(),
                                                               ver => $srcver});
-            if ($ct_date < $sv->upload_date()) {
+            if (not defined $sv->upload_date() or $ct_date < $sv->upload_date()) {
                 $sv->upload_date($ct_date);
                 $sv->update;
             }
@@ -416,7 +416,7 @@ sub add_configuration {
         # add all severitites
         my $sev = $s->resultset('Severity')->find_or_create({severity => $sev_name});
         # mark strong severities
-        if (grep $sev_name $config{strong_severities}) {
+        if (grep {$_ eq $sev_name} @{$config{strong_severities}}) {
             $sev->strong(1);
         }
         $sev->order($order);