svnno****@sourc*****
svnno****@sourc*****
2011年 5月 13日 (金) 00:47:05 JST
Revision: 19
http://sourceforge.jp/projects/osmtools/svn/view?view=rev&revision=19
Author: argrath
Date: 2011-05-13 00:47:05 +0900 (Fri, 13 May 2011)
Log Message:
-----------
微調整
Modified Paths:
--------------
ksj2/Geo/KSJ.pm
Modified: ksj2/Geo/KSJ.pm
===================================================================
--- ksj2/Geo/KSJ.pm 2010-12-19 09:39:49 UTC (rev 18)
+++ ksj2/Geo/KSJ.pm 2011-05-12 15:47:05 UTC (rev 19)
@@ -319,11 +319,11 @@
sub put_point {
my ($self, $hook, $params) = @_;
- my %point = %{$self->point};
+# my %point = %{$self->point};
my $fh = $self->{fh};
- for (sort keys %point){
- my ($lat, $lon) = split / /, $point{$_};
+ for (sort keys %{$self->point}){
+ my ($lat, $lon) = split / /, ${$self->point}{$_};
printf $fh '<node id="%d" visible="true" lat="%3.8f" lon="%3.8f">',
$_, $lat, $lon;
my %tag = ();