X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;fp=perl%2FAGWMsg.pm;h=cb64177e20931cf5bb5c067bc36a26f13c4e235c;hb=6f20114b034d329c1e2a4f91f0aba2f6ec4002d4;hp=f6fc50747f9a5fa005099630777770e4cdec2986;hpb=72dc0f2eeecaf78902acacb9d183b7f9215dd385;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;