X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=migrate%2Fdebbugs-upgradestatus;h=b5a3189bbb3761ed6ea9f6c7ae012f8f2e0448ea;hb=87e2076e141611d821edff91d883fb9e8af5291b;hp=333e22a871fce451aac00479f8d16db780eb20b4;hpb=12aea43a6d37f27f0cbf52d8b1a8a0040ed5ff1a;p=debbugs.git diff --git a/migrate/debbugs-upgradestatus b/migrate/debbugs-upgradestatus index 333e22a..b5a3189 100755 --- a/migrate/debbugs-upgradestatus +++ b/migrate/debbugs-upgradestatus @@ -16,7 +16,7 @@ Usage: $0 db-h|archive (relative to $gSpoolDir) debbugs-upgradestatus converts a debbugs database in-place to use version 2 of the bug status file format. Version 1 metadata files were stored in -.status files; version 2 metadata files are written to .db files. +.status files; version 2 metadata files are written to .summary files. EOF exit 0; @@ -87,20 +87,21 @@ for my $ref (@files) { unlockwritebug($ref, $data, $archive, 2, 'disable bughook'); } - # Test new .db file + # Test new .summary file my $newdata = readbug($ref, $archive); my %jointkeys = map { $_ => 1 } (keys %$data), (keys %$newdata); for my $key (keys %jointkeys) { unless (exists $data->{$key}) { - die "BUG: $ref: key '$key' in .db but not .status!\n"; + die "BUG: $ref: key '$key' in .summary but not .status!\n"; } unless (exists $newdata->{$key}) { - die "BUG: $ref: key '$key' in .status but not .db!\n"; + die "BUG: $ref: key '$key' in .status but not .summary!\n"; } if ($data->{$key} ne $newdata->{$key}) { - die "BUG: $ref: key '$key' different in .status and .db:\n" . + die "BUG: $ref: key '$key' different in " . + ".status and .summary\n" . " .status has '$data->{$key}';\n" . - " .db has '$newdata->{$key}'!\n"; + " .summary has '$newdata->{$key}'!\n"; } }