home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / patches / libnet-1.0505-win32.patch < prev    next >
Encoding:
Text File  |  1997-08-10  |  1.8 KB  |  63 lines
  1. --- Net/FTP.pm.dist    Wed Apr 16 20:29:31 1997
  2. +++ Net/FTP.pm    Wed Apr 16 20:41:28 1997
  3. @@ -191,7 +191,8 @@
  4.       ($ruser,$pass,$acct) = $rc->lpa()
  5.      if ($rc);
  6.  
  7. -     $pass = "-" . (getpwuid($>))[0] . "@" 
  8. +     $pass = "-" . ($^O =~ /mswin32/i ? $ENV{'USERNAME'} :
  9. +                        (getpwuid($>))[0]) . "@" 
  10.          if (!defined $pass && $ruser =~ /^anonymous/o);
  11.      }
  12.  
  13. @@ -217,7 +218,7 @@
  14.    {
  15.     require Net::Netrc;
  16.  
  17. -   $auth ||= (getpwuid($>))[0];
  18. +   $auth ||= ($^O =~ /mswin32/i ? $ENV{'USERNAME'} : (getpwuid($>))[0]);
  19.  
  20.     my $rc = Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'}, $auth)
  21.          || Net::Netrc->lookup(${*$ftp}{'net_ftp_firewall'});
  22. --- Net/Netrc.pm.dist    Wed Apr 16 20:29:31 1997
  23. +++ Net/Netrc.pm    Wed Apr 16 20:44:42 1997
  24. @@ -20,7 +20,8 @@
  25.   my $host = shift;
  26.  
  27.   # Some OS's don't have `getpwuid', so we default to $ENV{HOME}
  28. - my $home = eval { (getpwuid($>))[7] } || $ENV{HOME};
  29. + my $home = ($^O =~ /mswin32/i ? $ENV{HOME} :
  30. +                  (eval { (getpwuid($>))[7] } || $ENV{HOME}));
  31.   my $file = $home . "/.netrc";
  32.  
  33.   my($login,$pass,$acct) = (undef,undef,undef);
  34. --- Net/POP3.pm.dist    Wed Apr 16 20:29:31 1997
  35. +++ Net/POP3.pm    Wed Apr 16 20:46:04 1997
  36. @@ -71,7 +71,7 @@
  37.    {
  38.     require Net::Netrc;
  39.  
  40. -   $user ||= (getpwuid($>))[0];
  41. +   $user ||= ($^O =~ /mswin32/i ? $ENV{USERNAME} : (getpwuid($>))[0]);
  42.  
  43.     my $m = Net::Netrc->lookup(${*$me}{'net_pop3_host'},$user);
  44.  
  45. --- Net/Domain.pm.dist    Sun Jun 22 16:44:24 1997
  46. +++ Net/Domain.pm    Sun Jun 22 18:05:24 1997
  47. @@ -28,8 +28,14 @@
  48.      return $host
  49.          if(defined $host);
  50.  
  51. +    ($^O eq 'MSWin32'
  52. +     && do {
  53. +    require Sys::Hostname;
  54. +    $host = Sys::Hostname::hostname();
  55. +    })
  56. +
  57.      # syscall is preferred since it avoids tainting problems
  58. -    eval {
  59. +    || eval {
  60.          my $tmp = "\0" x 256; ## preload scalar
  61.          eval {
  62.              package main;
  63.