X-Git-Url: https://git.exim.org/exim-website.git/blobdiff_plain/d4895031664211a9a0096c016a359fb62a2d9518..b40358cdb323181d74ec3b968408fd73353c8911:/filter/test_regexp.pl?ds=sidebyside

diff --git a/filter/test_regexp.pl b/filter/test_regexp.pl
deleted file mode 100644
index b16d9fa..0000000
--- a/filter/test_regexp.pl
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-#
-# Test a regexp against a file (message)
-#
-use strict;
-use FileHandle;
-use Carp;
-
-my $refile = shift;
-my $infile = shift;
-
-my $rfh = FileHandle->new($refile, 'r')|| croak;
-my @relines = <$rfh>;
-grep(s/\s*\#.*$//, @relines);
-chomp(@relines);
-my $repat = join('', @relines);
-my $re = qr{$repat}ix;
-
-my $infh = FileHandle->new($infile, 'r')|| croak;
-my $in = join('', <$infh>);
-$in =~ tr/\r\n/ /;
-
-print "no " unless ($in =~ /$re/);
-print "match\n";