Allow synonyms for localhost

[spider.git] / perl / create_prefix.pl

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index d87cf14412ec357701757943e0ae7ce318006617..72df12c1418fc821ca793f7b9c7fac1583f529e7 100755 (executable)
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -18,6 +18,7 @@ BEGIN {
 
        unshift @INC, "$root/perl";     # this IS the right way round!
        unshift @INC, "$root/local";
+       $data = "$root/data";
 }
 
 use DXVars;
@@ -180,8 +181,8 @@ foreach my $l (sort {$a <=> $b} keys %locn) {
        print OUT " cq => $cq,";
        print OUT " utcoff => $utcoff,";
        print OUT " lat => $latd,";
-       print OUT " long => $longd";
-       print OUT " qra => $qra";
+       print OUT " long => $longd,";
+       print OUT " qra => '$qra'";
        print OUT " }, 'Prefix'),\n";
 }
 print OUT ");\n\n";