[Mew-dist 3143] Re: [Q] ログイン名に正規表現

[SAKAI Kiyotaka]

>> In article <199711201928.EAA12828 at example.com>, かわまたあきら <akira- at example.com> writes:

>  Solarisではログイン名に'+'が使えるのでakira++という名前で
> アカウントを作ってもらったのですが、imsetupを実行すると
>> /^/home/akira++//: nested *?+ in regexp at
>> /usr/local/bin/imsetup line 98, <STDIN> chunk 2.
> とエラーが出てしまいます。=~ 演算を行っているときに++の部分
> を正規表現と勘違いしているのが原因のようです。ログイン名を
> 変更する以外に対処の方法があったら教えていただきたいのですが。
> 使っているimsetupのバージョンは "imsetup version 971024" です。

このパッチでどうでしょうか。
-- 
酒井 清隆 (E-mail: ksakai at example.com)


Index: imsetup.in
===================================================================
RCS file: /home/cvsroot/im-78/imsetup.in,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 imsetup.in
--- imsetup.in	1997/12/03 00:29:22	1.1.1.1
+++ imsetup.in	1997/12/11 12:13:34
@@ -91,11 +91,12 @@
 
     my $mymail = "$home/$mail";
     my $mynews = "$home/$news";
+    my $qxhome = qx/$home/;
 
     do {
 	do {
 	    $mymail = &input_config("Where is your Mail directory?", $mymail);
-	} until (($mail = $mymail) =~ s!^$home/!!e
+	} until (($mail = $mymail) =~ s!^$qxhome/!!e
 		 || &input_confirm("Sure to use $mail which is not beneath "
 				   . "your home directory?"));
     } while (! &check_and_create_directory($mymail));
@@ -103,7 +104,7 @@
     do {
 	do {
 	    $mynews = &input_config("Where is your News directory?", $mynews);
-	} until (($news = $mynews) =~ s!^$home/!!e
+	} until (($news = $mynews) =~ s!^$qxhome/!!e
 		 || &input_confirm("Sure to use $news which is not beneath "
 				   . "your home directory?"));
     } while (! &check_and_create_directory($mynews));