ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra/Deliantra/Protocol.pm
(Generate patch)

Comparing deliantra/Deliantra/Deliantra/Protocol.pm (file contents):
Revision 1.8 by root, Sat Apr 8 13:33:29 2006 UTC vs.
Revision 1.9 by root, Sat Apr 8 13:34:30 2006 UTC

… …
353=cut 353=cut
354 354
355sub send { 355sub send {
356 my ($self, $data) = @_; 356 my ($self, $data) = @_;
357 357
358 print "SEND<$data>\n";#d#
359
360 $data = pack "na*", length $data, $data; 358 $data = pack "na*", length $data, $data;
361 359
362 syswrite $self->{fh}, $data; 360 syswrite $self->{fh}, $data;
363} 361}
364 362

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines