projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove origin node from Spot Dupes as default
[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";
unshift @INC, "$root/perl"; # this IS the right way round!
unshift @INC, "$root/local";
+ $data = "$root/data";
}
use DXVars;
}
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 " 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";
print OUT " }, 'Prefix'),\n";
}
print OUT ");\n\n";