fix --system on create_sysop.pl

Make sure that --system uses and creates files in data.

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index 60d7d2a1f462861d60868da871dacf37b6bdaaec..809850fd35a54e59ce97865124844694fff768c9 100755 (executable)
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -35,9 +35,11 @@ my %pre = ();                                                # the prefix hash
 my %pren = ();                                         # the inverse
 
 my $prefix;
+my $system;
 
 if (@ARGV && $ARGV[0] =~ /^--system$/) {
        $prefix = $main::data;
+       ++$system;
        shift;
 } else {
        $prefix = $main::local_data;
@@ -45,7 +47,7 @@ if (@ARGV && $ARGV[0] =~ /^--system$/) {
 
 my $ifn;
 
-$ifn = "$prefix/wpxloc.raw";
+$ifn = $system ? "$main::data/wpxloc.raw" : "$prefix/wpxloc.raw";
 unless (open (IN, $ifn)) {
        $ifn = "$main::data/wpxloc.raw";
        open(IN, $ifn) or die "can't open $ifn ($!)";
@@ -110,7 +112,7 @@ close(IN);
 
 # now open the cty.dat file if it is there
 my $r;
-$ifn = "$prefix/cty.dat";
+$ifn = $system ? "$main::data/cty.dat" : "$prefix/cty.dat";
 unless ($r = open (IN, $ifn)) {
        $ifn = "$main::data/cty.dat";
        $r = open(IN, $ifn);