diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2011-06-17 23:09:05 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2011-06-17 23:09:05 +0100 |
| commit | 349b9f813f07da61ca117f49d1a3746979dffac8 (patch) | |
| tree | 9661963edc9187063a97f8d4930c71bb17698e24 /perllib/Utils.pm | |
| parent | 5153ba514d7f4d8889ad55e8b1b7b18da63644d2 (diff) | |
Centralise UK location check to catch edge cases.
Diffstat (limited to 'perllib/Utils.pm')
| -rw-r--r-- | perllib/Utils.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perllib/Utils.pm b/perllib/Utils.pm index bf8ac2805..44234607f 100644 --- a/perllib/Utils.pm +++ b/perllib/Utils.pm @@ -47,6 +47,7 @@ Takes the WGS84 latitude and longitude and returns OSGB36 easting and northing. sub convert_latlon_to_en { my ( $latitude, $longitude ) = @_; + local $SIG{__WARN__} = sub { die $_[0] }; my ( $easting, $northing ) = mySociety::Locale::in_gb_locale { mySociety::GeoUtil::wgs84_to_national_grid( $latitude, $longitude, 'G' ); |