1 files changed, 0 insertions, 54 deletions
diff --git a/contrib/perl5/utils/splain.PL b/contrib/perl5/utils/splain.PL
deleted file mode 100644
index 0a71544..0000000
--- a/contrib/perl5/utils/splain.PL
+++ /dev/null
@@ -1,54 +0,0 @@
-#!/usr/local/bin/perl
-
-use Config;
-use File::Basename qw(&basename &dirname);
-use Cwd;
-
-# List explicitly here the variables you want Configure to
-# generate.  Metaconfig only looks for shell variables, so you
-# have to mention them as if they were shell variables, not
-# %Config entries:
-#  $startperl
-#  $perlpath
-#  $eunicefix
-
-# This forces PL files to create target in same directory as PL file.
-# This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
-chdir dirname($0);
-$file = basename($0, '.PL');
-$file .= '.com' if $^O eq 'VMS';
-
-# Open input file before creating output file.
-$IN = '../lib/diagnostics.pm';
-$in = open IN;
-if (!$in) {
-	$inmsg = "Can't open $IN: $!\n";
-	$IN = 'diagnostics.pm';
-	$in = open IN or die $inmsg, "Can't open $IN: $!\n";
-}
-
-# Create output file.
-open OUT,">$file" or die "Can't create $file: $!";
-
-print "Extracting $file (with variable substitutions)\n";
-
-# In this section, perl variables will be expanded during extraction.
-# You can use $Config{...} to use Configure variables.
-
-print OUT <<"!GROK!THIS!";
-$Config{startperl}
-    eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
-	if \$running_under_some_shell;
-!GROK!THIS!
-
-while (<IN>) {
-    print OUT unless /^package diagnostics/;
-}
-
-close IN;
-
-close OUT or die "Can't close $file: $!";
-chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
-exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';
-chdir $origdir;