clean up documents

move FML::String to Dialect::ISO2022JP (Dialect::Japanese::String)

1 files changed, 15 insertions, 2 deletions

diff --git a/regress/base/string.pl b/regress/base/string.pl
index 733ac426..8895e12f 100755
--- a/regress/base/string.pl
+++ b/regress/base/string.pl
@@ -1,7 +1,20 @@
-use lib qw(./lib/fml5 ./lib/CPAN ./lib/3RDPARTY ./lib);
-use FML::String qw(STR2EUC);
+#!/usr/local/bin/perl
+#-*- perl -*-
+#
+#  Copyright (C) 2001 Ken'ichi Fukamachi
+#   All rights reserved. This program is free software; you can
+#   redistribute it and/or modify it under the same terms as Perl itself. 
+#
+# $Id$
+# $FML$
+#
+
+use lib qw(./lib/ ../../cpan/lib);
+use Dialect::ISO2022JP qw(STR2EUC);
 
 for (@ARGV) {
     my $x = &STR2EUC($_);
     print "<$_> -> <$x>\n";
 }
+
+exit 0;