diff options
| author | fukachan <fukachan> | 2002-07-02 03:54:49 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-02 03:54:49 +0000 |
| commit | c415aa152c70916c43fa1c40dc9f6c7b4aeb8ae5 (patch) | |
| tree | 0b2a2f20af452a0327660a24dbc28cd90f12fbf8 /fml/lib/FML/Language | |
| parent | 0247179173c9194418669a5fbad651be2de393fa (diff) | |
| download | fml8-c415aa152c70916c43fa1c40dc9f6c7b4aeb8ae5.tar.gz fml8-c415aa152c70916c43fa1c40dc9f6c7b4aeb8ae5.tar.bz2 fml8-c415aa152c70916c43fa1c40dc9f6c7b4aeb8ae5.zip | |
clean up/fix comments
Diffstat (limited to 'fml/lib/FML/Language')
| -rw-r--r-- | fml/lib/FML/Language/Japanese/Utils.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/fml/lib/FML/Language/Japanese/Utils.pm b/fml/lib/FML/Language/Japanese/Utils.pm index 3a3f86fb..3d0fda32 100644 --- a/fml/lib/FML/Language/Japanese/Utils.pm +++ b/fml/lib/FML/Language/Japanese/Utils.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Utils.pm,v 1.8 2002/04/08 12:44:25 fukachan Exp $ +# $FML: Utils.pm,v 1.9 2002/05/11 09:45:48 fukachan Exp $ # package FML::Language::Japanese::Utils; @@ -111,6 +111,9 @@ sub compare_euc_string { my ($self, $a, $pat) = @_; + # XXX validate $a and $pat ??? + # e.g. defined($a) ? + # (Refeence: jcode 2.12) # $re_euc_c = '[\241-\376][\241-\376]'; # $re_euc_kana = '\216[\241-\337]'; |