Index: xgps
===================================================================
RCS file: /home/toshi/cvsup/cvs/PAO/kit/utils/xgps-0.1/xgps,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 xgps
--- xgps	1997/12/11 14:46:09	1.1.1.1
+++ xgps	2000/03/08 07:33:33
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!/usr/bin/perl
 #
 # --------------------------------------------------------------------
 #  xgps --- FreeBSD GPS-card utility for X11
@@ -236,7 +236,7 @@
 $main->fileevent(GPS, 'readable', \&statchanged);
 MainLoop;
 
-sub statchanged {
+sub statchanged() {
 	$gpsdata = <GPS>;
 	if ($gpsdata =~ /^SONY\d\d/) {
 		$t = substr($gpsdata, 6, 13);
@@ -304,13 +304,13 @@
 	}
 }
 
-sub fixlng {
+sub fixlng($) {
 	my($s) = shift;
 	my($dir, $deg, $min, $sec, $ssec) = (substr($s, 0, 1), substr($s, 1, 3), substr($s, 4, 2), substr($s, 6, 2), substr($s, 8, 1));
 	sprintf("%s %03dd %02dm %02d.%1ds", $dir, $deg, $min, $sec, $ssec);
 }
 
-sub fixlat {
+sub fixlat($) {
 	my($s) = shift;
 	my($dir, $deg, $min, $sec, $ssec) = (substr($s, 0, 1), substr($s, 1, 2), substr($s, 3, 2), substr($s, 5, 2), substr($s, 7, 1));
 	$ok = ($dir eq 'N' || $dir eq 'S');
@@ -319,7 +319,7 @@
 	sprintf("%s %02dd %02dm %02d.%1ds", $dir, $deg, $min, $sec, $ssec);
 }
 
-sub drawrad {
+sub drawrad() {
 	$ccam	-> create ('oval',
 			(5, 5), (5 + $radius * 2, 5 + $radius * 2),
 			-width => 2);
@@ -348,7 +348,7 @@
 	}
 }
 
-sub drawsat {
+sub drawsat($$) {
 	my($str) = shift;
 	my($num) = shift;
 	my($name, $elv, $dir);