浏览代码

Added OS detection to getpwuid

Since getpwuid is not implemented on Windows
Alois Mahdal 11 年前
父节点
当前提交
9c25bae404
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1
    1
      cgi-bin/hello_host.cgi

+ 1
- 1
cgi-bin/hello_host.cgi 查看文件

@@ -21,7 +21,7 @@ my $myip = $ENV{'SERVER_ADDR'};
21 21
 my $myport = $ENV{'SERVER_PORT'};
22 22
 my $myhostname = hostname;
23 23
 my $mylocaltime = &mygetstrtime;
24
-my $username = getpwuid( $< );
24
+my $username = ( $^O eq "MSWin32" ? '' : getpwuid( $< ));
25 25
 
26 26
 print "Client:\n";
27 27
 print "  $ip:$port\n";