Ｅｍａｃｓさんのすばらしいパッチを当てた者なのですが・・・

>>640-644
を導入しようとしたところ、
>>643
の部分が微妙にオリジナルと違うみたいです、パッチ後だと。

でその部分を以下のようにしてみたのですがうまくいくでしょうか？

if (0x0000 <= hex($switch) && hex($switch) <= 0x0198) {
$tmpSize = $var[hex($switch)];
if ($tmpSize == -1) {
$tmpSize = unpack("S1", substr($msg, 2, 2));
}
$msg_size = $tmpSize if ($tmpSize <= length($msg) );
dumpData(substr($msg, 0, $msg_size)) if ($config{'debug'} >= 2);
} elsif (substr($msg,0,8) eq 'HTTP/1.1') {
$msg_size = length($msg);
} elsif (substr($msg,0,4) eq $accountID) {
$msg_size = 4;
} elsif ($switch eq "0066") {
$msg_size = 3;
}

if ( !defined($msg_size) ) {
print "Unparsed packet - $switch\n";
} elsif (length($msg) < $msg_size) {
# pass
} elsif ($switch eq "0069") {
$conState = 2;