X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_prefix.pl;h=f1a0b554856f132be04df0a5b653f621ff6a440e;hb=83445c4f6ec6c885260944a9abe648aced399c40;hp=137ed1f66022ad4e52e867b85e64133f2821b0c5;hpb=d0c094a4df21ec851149f4afefee8fc596226669;p=spider.git

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index 137ed1f6..f1a0b554 100755
--- 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;