[Mew-dist 06116] --enable-rpop with perl5.005

[Motonori Nakamura]

perl5.005 で --enable-rpop すると、

Insecure dependency in eval while running setuid at /usr/local/lib/perl5/5.00501/i686-linux-thread/Socket.pm line 301.

と言われる問題ですが、このパッチでなおりますか?

どうも、@INC に追加するパスを保持する変数が insecure なのが問題の
ようなので、secure にするようにしてみました。
＃ これで、secure になる、というのも謎ですが、そういうものみたいです。

- motonori@良くみると、わざわざ $DIR なんて使わなくてもいいのね

--- imget.in-	Sun Aug 23 14:55:04 1998
+++ imget.in	Sun Aug 23 15:06:17 1998
@@ -15,8 +15,10 @@
 ###
 
 BEGIN {
-    ($DIR = $0) =~ s|/[^/]+$||;
-    unshift(@INC, $DIR);
+    if ($0 =~ m|([\w\-._/]+)/[^/]+$|) {
+	$DIR = $1;
+	unshift(@INC, $DIR);
+    }
 }
 
 my $VERSION = "imget @im_version@";