projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
fix echoing (?)
[spider.git]
/
perl
/
Msg.pm
diff --git
a/perl/Msg.pm
b/perl/Msg.pm
index dcc3c812d1ac77763c3e41bd47439a17a4589885..52f0efd477aefbee6d622f0c708d92875b31eeca 100644
(file)
--- a/
perl/Msg.pm
+++ b/
perl/Msg.pm
@@
-466,6
+466,12
@@
sub set_event_handler
dbg("Msg::set_event_handler called from ${pkg}::${fn} line $line doing $s");
}
+sub echo
+{
+ my $conn = shift;
+ return defined $_[0] ? $conn->{echo} = $_[0] : $_[0];
+}
+
sub DESTROY
{
my $conn = shift;