X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_prefix.pl;h=72df12c1418fc821ca793f7b9c7fac1583f529e7;hb=681ed7b3c6d79228a68054489058b619f62974bf;hp=d87cf14412ec357701757943e0ae7ce318006617;hpb=7d4b15681464d77945e7ea78ef60ed3305d57d95;p=spider.git

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index d87cf144..72df12c1 100755
--- 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";