calcdep: Use the same preamble as other Perl tools.

1 files changed, 10 insertions, 1 deletions

diff --git a/make/calcdep.pl b/make/calcdep.pl
index 626d3a194..66eb4f3dc 100755
--- a/make/calcdep.pl
+++ b/make/calcdep.pl
@@ -19,8 +19,17 @@
 #
 
 
+BEGIN {
+	require 5.10.0;
+	unless (-f 'configure') {
+		print "Error: $0 must be run from the main source directory!\n";
+		exit 1;
+	}
+}
+
 use strict;
-use warnings;
+use warnings FATAL => qw(all);
+
 use POSIX qw(getcwd);
 
 sub find_output;