-- TCPPack::(TCPPack.pm:9)
our (@ISA, @EXPORT);
-> TCPPack::(TCPPack.pm:17)
{
my $msg = shift;
*** Can't run finish while inside a call. Step and try again.
x1 TCPPack::(TCPPack.pm:18)
my $msg = shift;
<- TCPPack::(TCPPack.pm:37) TCPPack::pack_msg
($buf, $msg) = unpack_msg(pack_msg($buf));
Return value for TCPPack::pack_msg is: 0009Hi there!
*** Can't run finish while inside a return. Step and try again.
trepan.pl: That's all, folks...