commit 6b36ff28e431165968013873f5f6ceac19d8aea4
from: Omar Polo <op@omarpolo.com>
date: Sat Apr 01 16:06:42 2023 UTC

change GotMArc::parse to take the line instead of $_

commit - bbdbef1aa611793df3db28ba27fa2ef8bb34cfad
commit + 6b36ff28e431165968013873f5f6ceac19d8aea4
blob - c57cf11f9f81d7c1e856642def029495e5b397c6
blob + 842258a2e60dc34f5e09911ac611cdb3be76ebbb
--- GotMArc.pm
+++ GotMArc.pm
@@ -38,13 +38,14 @@ sub ssan {
 }
 
 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
@@ -58,7 +58,7 @@ sub humanize {
 
 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
@@ -186,7 +186,7 @@ pledge("stdio rpath wpath cpath fattr") or die "pledge
 nextfile;
 
 while (<>) {
-	my $mail = parse;
+	my $mail = parse $_;
 
 	if ($mail->{level} == 0) {
 		nextthread $mail->{mid}, $mail->{subj};
blob - 2c6179bd710adbb5ed6462636453130c694ed9c0
blob + 8f7b4dc6c14d44ecab7269ec6206515158a294b9
--- pe
+++ pe
@@ -60,8 +60,7 @@ sub process {
 
 	return unless @entries;
 
-	local $_ = $entries[0];
-	my $mail = parse;
+	my $mail = parse $entries[0];
 	die "wtf?" if $mail->{level} != 0;
 
 	my $tid = $mail->{mid};