微調整
ksj2/Geo/KSJ.pm (diff)| @@ -319,11 +319,11 @@ | ||
| 319 | 319 | sub put_point { |
| 320 | 320 | my ($self, $hook, $params) = @_; |
| 321 | 321 | |
| 322 | - my %point = %{$self->point}; | |
| 322 | +# my %point = %{$self->point}; | |
| 323 | 323 | my $fh = $self->{fh}; |
| 324 | 324 | |
| 325 | - for (sort keys %point){ | |
| 326 | - my ($lat, $lon) = split / /, $point{$_}; | |
| 325 | + for (sort keys %{$self->point}){ | |
| 326 | + my ($lat, $lon) = split / /, ${$self->point}{$_}; | |
| 327 | 327 | printf $fh '<node id="%d" visible="true" lat="%3.8f" lon="%3.8f">', |
| 328 | 328 | $_, $lat, $lon; |
| 329 | 329 | my %tag = (); |
