home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / perl / SSH2.pm < prev    next >
Encoding:
Perl POD Document  |  2001-10-11  |  607 b   |  35 lines
  1. package Net::SSH::W32Perl::SSH2;
  2.  
  3. use strict;
  4.  
  5. use vars qw/@ISA/;
  6.  
  7. use Net::SSH::Perl::SSH2;
  8. use IO::Select::Trap;
  9. use IO::String;
  10.  
  11. use constant IS_WIN32 => ($^O =~ /MSWin32/i);
  12.  
  13. @ISA = qw/Net::SSH::Perl::SSH2/;
  14.  
  15. sub _session_channel {
  16.     return shift->SUPER::_session_channel(@_) unless IS_WIN32;
  17.     shift->channel_mgr->new_channel(
  18.         rfd => new IO::String(), 
  19.         wfd => new IO::String(), 
  20.         efd => new IO::String()
  21.     );
  22. }
  23.  
  24. sub select_class { 'IO::Select::Trap' }
  25. sub Close {
  26.     my $ssh = shift;
  27.     my $sock = ($ssh->sock || undef);
  28.     if ($sock) {
  29.         $ssh->debug("Closing socket");
  30.         $sock->close();
  31.     }
  32. }
  33.  
  34. 1;
  35.