a variable was killed off upon connecting
git-svn-id: http://svn.tabris.net/repos/srsv@3456
70d4eda1-72e9-0310-a436-
91e5bd24443c
$src = main_conf_local unless defined($src);
if ($bool > 0) { $bool = '+'; } else { $bool = '-'; }
#this is SVS NO-OP not SVS SNOOP
- ircsend(":main_conf_local @{[TOK_SVSNOOP]} $targetserver $bool");
+ ircsend(":".main_conf_local." @{[TOK_SVSNOOP]} $targetserver $bool");
}
sub svswatch ($$@) {
sub version($) {
my ($src) = @_;
- ircsend(":main_conf_local 351 $src $main::progname ver $main::version main_conf_local ".
+ ircsend(":".main_conf_local." 351 $src $main::progname ver $main::version ".main_conf_local." ".
$main::extraversion);
}