AN HTTPD ゲストブック/コメント集(2002年2月7日11:56)

Alice さん、
ActivePerl の v5.6.1 Build 630 で現象を確認しました。
確かに PerlIS.dll の不具合のような気もしますが、もう少し調べてみます。

中田さま、メールにてCGIを送付させていただいたのですがいかがでしたでしょうか？

Alice さん、
「暴走」というのがどういう意味かにもよりますが、ちょっと考えにくいですね。
再現性はありますか？
再現性があるようなら、その「暴走」する CGIをメールで送ってください。

サンプル：http://moe.syotake.to/cgi/rank/
配布：http://moe.syotake.to/
こんなCGIを組んでいるのですが

Location処理の際に

close(HTML); 
	if($in{'forked'} eq 'tohyo'){ 
		# IISサーバ対応 
		if ($ENV{'PERLXS'} eq "PerlIS") { 
			print "HTTP/1.0 302 Temporary Redirection\r\n"; 
			print "Content-type: text/html\n"; 
		} 
	} 
 
	if($in{'forked'} eq 'tohyo'){ 
	print "Location: $index\n\n"; 
	exit; 
	} 

	if($in{'forked'} eq 'tohyo'){ 
		# IISサーバ対応 
		if ($ENV{'PERLXS'} eq "PerlIS") { 
			print "HTTP/1.0 302 Temporary Redirection\r\n"; 
			print "Content-type: text/html\n"; 
		} 
	} 
close(HTML); 
 
	if($in{'forked'} eq 'tohyo'){ 
	print "Location: $index\n\n"; 
	exit; 
	}