home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 December (Special) / PCWorld_2005-12_Special_cd.bin / Bezpecnost / lsti / lsti.exe / framework-2.5.exe / debug_read.al < prev    next >
Text File  |  2005-04-23  |  678b  |  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 1501 "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.