1 files changed, 0 insertions, 25 deletions
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";
-}