Fix unnecessary begin blocks in Perl source files.

1 files changed, 1 insertions, 9 deletions

diff --git a/tools/directive b/tools/directive
index 95fe847ac..07d4b09e2 100755
--- a/tools/directive
+++ b/tools/directive
@@ -18,15 +18,7 @@
 #
 
 
-BEGIN {
-	require 5.10.0;
-	unless (-f 'configure') {
-		print "Error: $0 must be run from the main source directory!\n";
-		exit 1;
-	}
-}
-
-use feature ':5.10';
+use v5.10.0;
 use strict;
 use warnings FATAL => qw(all);