From f6b861f12d070ba931d829505bfd3229653f5df2 Mon Sep 17 00:00:00 2001
From: Sadie Powell <sadie@witchery.services>
Date: Mon, 25 Jan 2021 12:13:54 +0000
Subject: Fix unnecessary begin blocks in Perl source files.

---
 make/calcdep.pl | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'make/calcdep.pl')

diff --git a/make/calcdep.pl b/make/calcdep.pl
index 59b61e65a..3c02024fa 100755
--- a/make/calcdep.pl
+++ b/make/calcdep.pl
@@ -21,20 +21,13 @@
 #
 
 
-BEGIN {
-	push @INC, $ENV{SOURCEPATH};
-	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 FATAL => qw(all);
 
-use File::Basename qw(basename);
+use File::Basename qw(basename dirname);
+use FindBin        qw($RealDir);
 
+use lib dirname $RealDir;
 use make::common;
 
 use constant {
-- 
cgit v1.2.3