On Dec 9, 2007 10:57 AM, Chas. Owens <[EMAIL PROTECTED]> wrote:
snip
> my $maxlen = 2**32-1;
> croak "$msg is too long (there is a $maxlen byte limit)" if $len >
> $maxlen;
> print $sock pack "Ca*", $len, $msg;
snip
Whoops, I had a copy and paste error there. That should be
my $maxlen = 2**8-1;
croak "$msg is too long (there is a $maxlen byte limit)" if $len > $maxlen;
print $sock pack "Ca*", $len, $msg;
in the second function.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
