add CTY-2706 prefixes

[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;