#
#
-require 5.004;
+use 5.10.1;
# search local then perl directories
BEGIN {
my $prefix;
my $system;
-if (@ARGV && $ARGV[0] =~ /^--system$/) {
+if (@ARGV && $ARGV[0] =~ /^-?-?syst?e?m?$/) {
$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;