home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / ssl / debug_read.al < prev    next >
Encoding:
Text File  |  2004-03-20  |  700 b   |  23 lines
  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 1485 "blib\lib\Net\SSLeay.pm (autosplit into blib\lib\auto\Net\SSLeay\debug_read.al)"
  7. ###
  8. ### read and write helpers that block
  9. ###
  10.  
  11. sub debug_read {
  12.     my ($replyr, $gotr) = @_;
  13.     my $vm = $trace>2 && $linux_debug ?
  14.     (split ' ', `cat /proc/$$/stat`)[22] : 'vm_unknown';
  15.     warn "  got " . blength($$gotr) . ':'
  16.     . blength($$replyr) . " bytes (VM=$vm).\n" if $trace == 3;
  17.     warn "  got `$$gotr' (" . blength($$gotr) . ':'
  18.     . blength($$replyr) . " bytes, VM=$vm)\n" if $trace>3;
  19. }
  20.  
  21. # end of Net::SSLeay::debug_read
  22. 1;
  23.