From 4aacb43eede24c948f25c2a265580c1242a12c98 Mon Sep 17 00:00:00 2001 From: Thomas Roessler Date: Thu, 24 Jan 2002 21:54:37 +0000 Subject: [PATCH] We don't need this any more. --- reap.pl | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100755 reap.pl diff --git a/reap.pl b/reap.pl deleted file mode 100755 index 1001ed98e..000000000 --- a/reap.pl +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/local/bin/perl -# -# A small script to strip out any "illegal" PGP code to make sure it is -# safe for International export. -# - -# -# $Id$ -# - -$word = shift; -$illegal = 0; -$count = 0; -while (<>) -{ - if (/^#if/) - { - if (!/^\#ifn/ && /${word}/) { $illegal = 1; } - if ($illegal) { $count++; } - } - elsif ($illegal && /^#endif/) - { - $count--; - if ($count == 0) - { - $illegal = 0; - next; - } - } - print if (! $illegal); -} -- 2.40.0