X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;h=1888ac6f2dcdf9e5026528c9e8449418cb06fed9;hb=b9dffeff7239952814342dad19db3a51def6fab7;hp=f6fc50747f9a5fa005099630777770e4cdec2986;hpb=5bc87856bb191e42d91628a5a4d9579a242b9541;p=spider.git

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index f6fc5074..1888ac6f 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -45,12 +45,6 @@ $hpolltime = 300 unless defined $hpolltime;
 %circuit = ();
 $total_in = $total_out = 0;
 
-use vars qw($VERSION $BRANCH);
-$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
-$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/  || (0,0));
-$main::build += $VERSION;
-$main::branch += $BRANCH;
-
 sub init
 {
 	return unless $enable;
@@ -104,6 +98,11 @@ sub finish
 	}
 }
 
+sub login
+{
+	goto &main::login;        # save some writing, this was the default
+}
+
 sub active
 {
 	return $sock;