diff options
author | Joseph Herlant <herlantj@gmail.com> | 2018-05-25 22:07:07 -0700 |
---|---|---|
committer | Joseph Herlant <aerostitch@users.noreply.github.com> | 2018-05-25 22:17:50 -0700 |
commit | 41a1264cdd43a11695de85eab0bd3c941abf2b70 (patch) | |
tree | 3da1ef3bebc674807258ae824ff9156a64adf370 /navit/script/osm/Geo/OSM/OsmReaderV6.pm | |
parent | 8a76acb966f7059caf9d72c853175bd923b1e9d7 (diff) | |
download | navit-41a1264cdd43a11695de85eab0bd3c941abf2b70.tar.gz |
cleanup:cmake:remove trailing spaces
Diffstat (limited to 'navit/script/osm/Geo/OSM/OsmReaderV6.pm')
-rw-r--r-- | navit/script/osm/Geo/OSM/OsmReaderV6.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/navit/script/osm/Geo/OSM/OsmReaderV6.pm b/navit/script/osm/Geo/OSM/OsmReaderV6.pm index 4f6a683d2..7ad3c736a 100644 --- a/navit/script/osm/Geo/OSM/OsmReaderV6.pm +++ b/navit/script/osm/Geo/OSM/OsmReaderV6.pm @@ -26,7 +26,7 @@ use constant STATE_EXPECT_BODY => 4; # With this initialiser, your process will get called with instantiated objects sub init -{ +{ my $obj = bless{}, shift; my $proc = shift; my $prog = shift; @@ -41,7 +41,7 @@ sub init sub _process { my($self, $entity, $attr, $tags, $members) = @_; - + my $ent; if( $entity eq "node" ) { @@ -65,7 +65,7 @@ sub load($) my ($self, $file_name) = @_; $self->{state} = STATE_INIT; - + my $start_time = time(); my $P = new XML::Parser(Handlers => {Start => sub{ DoStart( $self, @_ )}, End => sub { DoEnd( $self, @_ )}}); my $fh = data_open($file_name); @@ -94,7 +94,7 @@ sub parse($) my ($self, $string) = @_; $self->{state} = STATE_INIT; - + my $start_time = time(); my $P = new XML::Parser(Handlers => {Start => sub{ DoStart( $self, @_ )}, End => sub { DoEnd( $self, @_ )}}); $self->{input_length} = length($string); @@ -119,14 +119,14 @@ sub parse($) # Function is called whenever an XML tag is started sub DoStart { -#print @_,"\n"; +#print @_,"\n"; my ($self, $Expat, $Name, %Attr) = @_; if( $self->{state} == STATE_INIT ) { if($Name eq "osm"){ $self->{state} = STATE_EXPECT_ENTITY; - + if( $Attr{version} ne "0.6" ) { die "OsmReaderV6 can only read 0.6 files, found '$Attr{version}'\n" } } else { @@ -209,7 +209,7 @@ OsmReaderV6 - Module for reading OpenStreetMap V6 XML data files my $OSM = new Geo::OSM::OsmReader(\&process); $OSM->load("Data/changes.osc"); - + sub process { my($OSM, $entity) = @_; |