tell operator where the prefix file is created

Issue a line saying whether this is a SYSTEM or a LOCAL prefix file
being created.

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index 809850fd35a54e59ce97865124844694fff768c9..137ed1f66022ad4e52e867b85e64133f2821b0c5 100755 (executable)
--- 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;