diff options
| author | fukachan <fukachan> | 2002-04-18 14:18:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-04-18 14:18:06 +0000 |
| commit | 2a0512995d7f951d3df30e14d41b7ce764cd5f05 (patch) | |
| tree | 2bda22fed1728b9d60eed28dfa1b6726d472c1a4 /regress/base/string.pl | |
| parent | 6813323a46d41165938223ca65ec6dcfb41fdbca (diff) | |
| download | fml8-2a0512995d7f951d3df30e14d41b7ce764cd5f05.tar.gz fml8-2a0512995d7f951d3df30e14d41b7ce764cd5f05.tar.bz2 fml8-2a0512995d7f951d3df30e14d41b7ce764cd5f05.zip | |
more silent, clean up
Diffstat (limited to 'regress/base/string.pl')
| -rwxr-xr-x | regress/base/string.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/regress/base/string.pl b/regress/base/string.pl index 40b6f775..03bb9c53 100755 --- a/regress/base/string.pl +++ b/regress/base/string.pl @@ -1,15 +1,18 @@ -#!/usr/local/bin/perl +#!/usr/bin/env 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. # -# $FML: string.pl,v 1.3 2001/04/03 09:51:12 fukachan Exp $ +# $FML: string.pl,v 1.4 2001/06/17 09:00:30 fukachan Exp $ # +use strict; use lib qw(./lib/ ../../cpan/lib); -use Dialect::ISO2022JP qw(STR2EUC); +use FML::Language::ISO2022JP qw(STR2EUC); + +my $debug = defined $ENV{'debug'} ? 1 : 0; for (@ARGV) { my $x = &STR2EUC($_); |