From f2820a509d91061b65fa32ec4e647cbd29760195 Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Sun, 19 Jun 2022 19:55:38 -0400
Subject: Change to filter style from pipe.

---
 t/delivert | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100755 t/delivert

(limited to 't/delivert')

diff --git a/t/delivert b/t/delivert
deleted file mode 100755
index 794e0a1..0000000
--- a/t/delivert
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/usr/bin/env perl
-
-use Email::Simple;
-use IO::File;
-
-use strict;
-use warnings;
-
-die usage() unless $#ARGV == 0;
-my $path = shift;
-
-local $/;
-my $email = Email::Simple->new(<>);
-
-my $msgid = $email->header('Message-ID');
-$msgid =~ s/<(.*)@.*>/$1/;
-
-my $fh = IO::File->new(">$path/$msgid") ||
-  die "Couldn't write to $path/$msgid: $!\n";
-print $fh $email->as_string;
-$fh->close;
-
-sub usage {
-  "Usage: $0 path\n";
-}
-- 
cgit v1.2.3