Commit 8c2b5ddd authored by IKEDA Soji's avatar IKEDA Soji
Browse files

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

parent 61663435
......@@ -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'
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment