From d0c094a4df21ec851149f4afefee8fc596226669 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 2 Jan 2017 12:45:26 +0000
Subject: [PATCH] tell operator where the prefix file is created

Issue a line saying whether this is a SYSTEM or a LOCAL prefix file
being created.
---
 perl/create_prefix.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index 809850fd..137ed1f6 100755
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -6,7 +6,7 @@
 #
 #
 
-require 5.004;
+use 5.10.1;
 
 # search local then perl directories
 BEGIN {
@@ -41,8 +41,10 @@ if (@ARGV && $ARGV[0] =~ /^--system$/) {
 	$prefix = $main::data;
 	++$system;
 	shift;
+	say "create_prefix.pl: creating SYSTEM prefix files";	
 } else {
 	$prefix = $main::local_data;
+	say "create_prefix.pl: creating LOCAL prefix files";	
 }
 
 my $ifn;
-- 
2.34.1