- print $w "$bytes $artnum $oid $mid0\n", $$msgref or die
- "failed to write shard $!\n";
+ # mid must be last, it can contain spaces (but not LF)
+ print $w join(' ', @$smsg{qw(bytes num blob ds ts mid)}),
+ "\n", $$msgref or die "failed to write shard $!\n";