projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
strip off extra brackets in pc61 ip storage
[spider.git]
/
perl
/
create_prefix.pl
diff --git
a/perl/create_prefix.pl
b/perl/create_prefix.pl
index 137ed1f66022ad4e52e867b85e64133f2821b0c5..f1a0b554856f132be04df0a5b653f621ff6a440e 100755
(executable)
--- a/
perl/create_prefix.pl
+++ b/
perl/create_prefix.pl
@@
-37,7
+37,7
@@
my %pren = (); # the inverse
my $prefix;
my $system;
-if (@ARGV && $ARGV[0] =~ /^-
-system
$/) {
+if (@ARGV && $ARGV[0] =~ /^-
?-?syst?e?m?
$/) {
$prefix = $main::data;
++$system;
shift;