Context Navigation

Geo-Coordinates-Converter

Timestamp:

01/16/08 15:46:48 (5 years ago)

Author:

yappo

Message:

lang/perl/Geo-Coordinates-Converter: fixed dms format (example case +N1.1.1.111) is dosent work bug via http://mobilehacker.g.hatena.ne.jp/tokuhirom/20080111/1200037289

Location:

lang/perl/Geo-Coordinates-Converter/trunk

Files:

r2440	r4691
14	14	my($self, $point) = @_;
15	15
16		return unless $point->lat =~ /^[\-\+NS]?\d{1,2}\.\d\d\.\d\d(?:\.\d+)$/i;
17		return unless $point->lng =~ /^[\-\+EW]?\d{1,3}\.\d\d\.\d\d(?:\.\d+)$/i;
	16	return unless $point->lat =~ /^[\-\+NS]?\d{1,2}\.\d\d?\.\d\d?(?:\.\d+)$/i;
	17	return unless $point->lng =~ /^[\-\+EW]?\d{1,3}\.\d\d?\.\d\d?(?:\.\d+)$/i;
	18
18	19	return $self->name;
19	20	}