start the Aranea additions

[spider.git] / perl / AGWMsg.pm

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index f6fc50747f9a5fa005099630777770e4cdec2986..cb64177e20931cf5bb5c067bc36a26f13c4e235c 100644 (file)
--- 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;