commit - bbdbef1aa611793df3db28ba27fa2ef8bb34cfad
commit + 6b36ff28e431165968013873f5f6ceac19d8aea4
blob - c57cf11f9f81d7c1e856642def029495e5b397c6
blob + 842258a2e60dc34f5e09911ac611cdb3be76ebbb
--- GotMArc.pm
+++ GotMArc.pm
}
sub parse {
- my ($indent, $fname, $date, $from, $subj) = m{
+ my $line = shift;
+ my ($indent, $fname, $date, $from, $subj) = $line =~ m{
^([^-]*)- # the indent level
([^ ]+)\s # filename
(\d{4}-\d\d-\d\d[ ]\d\d:\d\d) # date
<([^>]+)> # from
(.*) # subject
- }x or die "can't parse: $_";
+ }x or die "can't parse: $line";
my $level = length($indent);
$level = 10 if $indent =~ m/\.\.\d+\.\./;
blob - 44cac2bf265eeab9be0d4e2fd15357ec586d578c
blob + ecd5011e9c71eaac72ae668c2b6fe954eab40182
--- mexp
+++ mexp
my $tid;
while (<>) {
- my $mail = parse;
+ my $mail = parse $_;
$tid = $mail->{mid} if $mail->{level} == 0;
die "unknown tid" unless defined $tid;
blob - 9e2f0625262e48e0e16ba735edb2501bd66cd50e
blob + fd403de1064803cc3e2e1c54403634e992f97321
--- mkindex
+++ mkindex
nextfile;
while (<>) {
- my $mail = parse;
+ my $mail = parse $_;
if ($mail->{level} == 0) {
nextthread $mail->{mid}, $mail->{subj};
blob - 2c6179bd710adbb5ed6462636453130c694ed9c0
blob + 8f7b4dc6c14d44ecab7269ec6206515158a294b9
--- pe
+++ pe
return unless @entries;
- local $_ = $entries[0];
- my $mail = parse;
+ my $mail = parse $entries[0];
die "wtf?" if $mail->{level} != 0;
my $tid = $mail->{mid};