projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
add cty1701
[spider.git]
/
perl
/
IntMsg.pm
diff --git
a/perl/IntMsg.pm
b/perl/IntMsg.pm
index a940347d311366227a069b07e1d03ad9b79f0f28..0318c2b3bddb3a26b3f0525573f102c246132d58 100644
(file)
--- a/
perl/IntMsg.pm
+++ b/
perl/IntMsg.pm
@@
-23,6
+23,11
@@
use vars qw(@ISA);
@ISA = qw(Msg);
+sub login
+{
+ goto &main::login; # save some writing, this was the default
+}
+
sub enqueue
{
my ($conn, $msg) = @_;