[Mew-dist 2399] Re: Japanese in scan_form

[Motonori Nakamura]

>>>>> On Wed, 08 Oct 1997 01:31:44 +0900, KITAUCHI Akira <akira-k at example.com> said:

akira-k> imls の scan_form に日本語を含めることはできるのでしょうか？

akira-k> Form=%5n %m%d %h:%E  %-10f %-10t %S【%b	# --form
akira-k>                                    ^^

こんな変更で対応しても大丈夫でしょうか?

- motonori

--- IM.in/Scan.pm.in-	Wed Oct  8 06:31:40 1997
+++ IM.in/Scan.pm.in	Wed Oct  8 06:32:18 1997
@@ -646,7 +646,7 @@
     }
 
     $arg  = join(',', @symbols);
-    my $EVAL_SCAN_FORM = "sprintf(\"$format\", $arg)";
+    my $EVAL_SCAN_FORM = "sprintf('$format', $arg)";
     eval "sub scan_form { my (\$href) = shift; $EVAL_SCAN_FORM }";
     if ($@) {
 	im_die("Form seems to be wrong.\nPerl error message is: $@");