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

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index f6fc5074..cb64177e 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -104,6 +104,11 @@ sub finish
 	}
 }
 
+sub login
+{
+	goto &main::login;        # save some writing, this was the default
+}
+
 sub active
 {
 	return $sock;