git.maemo.org Git - dh-make-perl/blob - dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/lib/perl5/auto/Net/SSLeay/ssl_write_CRLF.al

   1 # NOTE: Derived from blib/lib/Net/SSLeay.pm.
   2 # Changes made here will be lost when autosplit is run again.
   3 # See AutoSplit.pm.
   4 package Net::SSLeay;
   5
   6 #line 2085 "blib/lib/Net/SSLeay.pm (autosplit into blib/lib/auto/Net/SSLeay/ssl_write_CRLF.al)"
   7 sub ssl_write_CRLF ($$) {
   8   # the next line uses less memory but might use more network packets
   9   return ssl_write_all($_[0], $_[1]) + ssl_write_all($_[0], $CRLF);
  10
  11   # the next few lines do the same thing at the expense of memory, with
  12   # the chance that it will use less packets, since CRLF is in the original
  13   # message and won't be sent separately.
  14
  15   #my $data_ref;
  16   #if (ref $_[1]) { $data_ref = $_[1] }
  17   # else { $data_ref = \$_[1] }
  18   #my $message = $$data_ref . $CRLF;
  19   #return ssl_write_all($_[0], \$message);
  20 }
  21
  22 # end of Net::SSLeay::ssl_write_CRLF
  23 1;