From svnnotify ¡÷ sourceforge.jp  Fri May 13 00:47:05 2011
From: svnnotify ¡÷ sourceforge.jp (svnnotify ¡÷ sourceforge.jp)
Date: Fri, 13 May 2011 00:47:05 +0900
Subject: [Osmtools-cvs:00011] =?utf-8?b?WzE5XSAg5b6u6Kq/5pW0?=
Message-ID: <1305215225.171096.16843.nullmailer@users.sourceforge.jp>

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 = ();