projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix all the DXUser API changes to use JSON
[spider.git]
/
perl
/
create_prefix.pl
diff --git
a/perl/create_prefix.pl
b/perl/create_prefix.pl
index 809850fd35a54e59ce97865124844694fff768c9..f1a0b554856f132be04df0a5b653f621ff6a440e 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 {
# search local then perl directories
BEGIN {
@@
-37,12
+37,14
@@
my %pren = (); # the inverse
my $prefix;
my $system;
my $prefix;
my $system;
-if (@ARGV && $ARGV[0] =~ /^-
-system
$/) {
+if (@ARGV && $ARGV[0] =~ /^-
?-?syst?e?m?
$/) {
$prefix = $main::data;
++$system;
shift;
$prefix = $main::data;
++$system;
shift;
+ say "create_prefix.pl: creating SYSTEM prefix files";
} else {
$prefix = $main::local_data;
} else {
$prefix = $main::local_data;
+ say "create_prefix.pl: creating LOCAL prefix files";
}
my $ifn;
}
my $ifn;