[bug] Upgrading from Sympa prior to 6.2b.5, digest spool could not be…

… upgraded.
sympa-community · Aug 31, 2017 · 8c2b5dd · 8c2b5dd
1 parent 6166343
commit 8c2b5dd
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/src/lib/Sympa/Upgrade.pm b/src/lib/Sympa/Upgrade.pm
@@ -1368,12 +1368,18 @@ sub upgrade {
                 next;
             }
 
-            my $spool_digest = Sympa::Spool::Digest->new(%$metadata);
-            next unless $spool_digest;
-
             rename $Conf::Conf{'queuedigest'} . '/' . $filename,
                 $Conf::Conf{'queuedigest'} . '/' . $filename . '_migrated';
 
+            my $spool_digest = Sympa::Spool::Digest->new(%$metadata);
+            unless ($spool_digest) {
+                rename $Conf::Conf{'queuedigest'} . '/'
+                    . $filename
+                    . '_migrated',
+                    $Conf::Conf{'queuedigest'} . '/' . $filename;
+                next;
+            }
+
             local $RS = "\n\n" . $digest_separator . "\n\n";
             open my $fh, '<',
                 $Conf::Conf{'queuedigest'} . '/' . $filename . '_migrated'