From 32b789eec181ccbe720fa75abed8b2f3fddaff47 Mon Sep 17 00:00:00 2001
From: Peter Powell <petpow@saberuk.com>
Date: Sat, 7 Feb 2015 17:55:20 +0000
Subject: calcdep: Use the same preamble as other Perl tools.

---
 make/calcdep.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'make')

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;
-- 
cgit v1.2.3