From d0c094a4df21ec851149f4afefee8fc596226669 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0