--- xgps.orig	Wed Mar 22 18:16:39 2000
+++ xgps	Wed Mar 22 18:19:36 2000
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl
+#!@@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);
