Seeing "Xorg.foo.bar" can be confusing in warnings if the
eidx_key is only "org.foo.bar" with no relation to "Xorg" at
all. Furthermore, printing "\0" to log or terminal output isn't
very nice and could throw off some users/tools.
} else {
chomp $line;
my $eidx_key;
} else {
chomp $line;
my $eidx_key;
- if ($line =~ s/\AX(.+)\0//) {
+ if ($line =~ s/\AX=(.+)\0//) {
+ $v2w->{current_info} =~ s/\0/\\0/;
}
# n.b. $mid may contain spaces(!)
my ($len, $bytes, $num, $oid, $ds, $ts, $tid, $mid)
}
# n.b. $mid may contain spaces(!)
my ($len, $bytes, $num, $oid, $ds, $ts, $tid, $mid)
my ($self, $msgref, $eml, $smsg, $ibx) = @_;
if (my $w = $self->{w}) {
if ($ibx) {
my ($self, $msgref, $eml, $smsg, $ibx) = @_;
if (my $w = $self->{w}) {
if ($ibx) {
- print $w 'X', $ibx->eidx_key, "\0" or die
+ print $w 'X=', $ibx->eidx_key, "\0" or die
"failed to write shard: $!\n";
}
$msgref //= \($eml->as_string);
"failed to write shard: $!\n";
}
$msgref //= \($eml->as_string);