X-debbugs-Cc: [email protected]
Package: libgeography-nationalgrid-perl
Version: 1.6-10
Severity: wishlist
Tags: patch
File: /usr/share/man/man3/Geography::NationalGrid::TW.3pm.gz
> $point1->transform('TWD67');
Why do you throw the results away?!
Here, I rewrote it for you.
diff -U0 /tmp/Geography\:\:NationalGrid\:\:TW.3pm
/tmp/Geography\:\:NationalGrid\:\:TW.3pm.NEW
--- /tmp/Geography::NationalGrid::TW.3pm 2011-01-18 20:32:37.278987000
+0800
+++ /tmp/Geography::NationalGrid::TW.3pm.NEW 2011-01-18 20:34:18.734986000
+0800
@@ -143 +143 @@
-\& my $point1 = new Geography::NationalGrid::TW(
+\& my $point97 = new Geography::NationalGrid::TW(
@@ -147,2 +147,2 @@
-\& printf("Point 1 is %f X and %f Y\en", $point1\->easting,
$point1\->northing);
-\& printf("Point 1 is %f N and %f E\en", $point1\->latitude,
$point1\->longitude);
+\& printf("Point 97 is %f X and %f Y\en", $point97\->easting,
$point97\->northing);
+\& printf("Point 97 is %f N and %f E\en", $point97\->latitude,
$point97\->longitude);
@@ -150 +150 @@
-\& $point1\->transform(\*(AqTWD67\*(Aq);
+\& my $point67 = $point97\->transform(\*(AqTWD67\*(Aq);
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
