From 8d7cb4ce1dd7c924a231cc8bfaeb7bcb200ad4f4 Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Thu, 13 Sep 2001 19:31:06 +0000
Subject: [PATCH] Replaced makeDbDepends.pl with mkmf.pl.

---
 configure/tools/makeDbDepends.pl | 38 --------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 configure/tools/makeDbDepends.pl

diff --git a/configure/tools/makeDbDepends.pl b/configure/tools/makeDbDepends.pl
deleted file mode 100644
index e35584948..000000000
--- a/configure/tools/makeDbDepends.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-eval 'exec perl -S $0 ${1+"$@"}'  # -*- Mode: perl -*-
-    if $running_under_some_shell; # makeDbDepends.pl
-
-# Called from within the object directory.
-# Searches the .substitutions file (from the command line) for
-# "file xxx {" entries to create a dependancy output file
-
-sub Usage
-{
-    my ($txt) = @_;
-
-    print "Usage:\n";
-    print "\makeDbDepends dbfile substitutionfile dependsfile\n";
-    print "\nError: $txt\n" if $txt;
-
-    exit 2;
-}
-
-# need at least three args: ARGV[2]
-Usage("need three args") if $#ARGV < 2;
-
-$dbfile = $ARGV[0];
-$subfile = $ARGV[1];
-$outfile = $ARGV[2];
-
-open(OUT, "> $outfile") or die "Cannot open output file $outfile: $!";
-open(IN, "<$subfile") or die "Cannot open $subfile: $!";
-@substfile = <IN>;
-close IN or die "Cannot close $subfile: $!";
-
-@depends = grep { s/^\s*file\s*(.*)\s*\{.*$/\1/ } @substfile;
-chomp @depends;
-
-if (@depends) {
-	$file =~ s/\.substitutions/\.db/;
-	print OUT "${dbfile}:: @depends\n";
-}
-close OUT or die "Cannot close $outfile: $!";