1 files changed, 0 insertions, 31 deletions
diff --git a/contrib/perl5/h2pl/mkvars b/contrib/perl5/h2pl/mkvars
deleted file mode 100644
index ffb0f0b..0000000
--- a/contrib/perl5/h2pl/mkvars
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl
-
-require 'sizeof.ph';
-
-$LIB = '/usr/local/lib/perl';
-
-foreach $include (@ARGV) {
-    printf STDERR "including %s\n", $include;
-    do $include;
-    warn "sourcing $include: $@\n" if ($@);
-    if (!open (INCLUDE,"$LIB/$include")) {
-	warn "can't open $LIB/$include: $!\n"; 
-	next; 
-    } 
-    while (<INCLUDE>) {
-	chop;
-	if (/^\s*eval\s+'sub\s+(\w+)\s.*[^{]$/ || /^\s*sub\s+(\w+)\s.*[^{]$/) {
-	    $var = $1;
-	    $val = eval "&$var;";
-	    if ($@) {
-		warn "$@: $_";
-		print <<EOT;
-warn "\$$var isn't correctly set" if defined \$_main{'$var'};
-EOT
-		next;
-	    } 
-	    ( $nval = sprintf ("%x",$val ) ) =~ tr/a-z/A-Z/;
-	    printf "\$%s = 0x%s;\n", $var, $nval;
-	} 
-    }
-}