diff options
| author | fukachan <fukachan> | 2001-01-24 08:40:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-24 08:40:31 +0000 |
| commit | 4e683b057517677d6227f0ef0e77d18300d6b448 (patch) | |
| tree | 986aa90c60def4e6112499f26354cd1e0c9a70d0 | |
| parent | 7f403f35876b91e5d6fc8c192ba4ec0bca5bc4c3 (diff) | |
| download | fml8-4e683b057517677d6227f0ef0e77d18300d6b448.tar.gz fml8-4e683b057517677d6227f0ef0e77d18300d6b448.tar.bz2 fml8-4e683b057517677d6227f0ef0e77d18300d6b448.zip | |
is_reply: check whether the given value exists
| -rw-r--r-- | fml/lib/Dialect/Japanese/Subject.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fml/lib/Dialect/Japanese/Subject.pm b/fml/lib/Dialect/Japanese/Subject.pm index 9457a1d7..200f64cf 100644 --- a/fml/lib/Dialect/Japanese/Subject.pm +++ b/fml/lib/Dialect/Japanese/Subject.pm @@ -85,6 +85,7 @@ sub cut_off_reply_tag sub is_reply { my ($self, $x) = @_; + return 0 unless $x; &Jcode::convert(\$x, 'euc'); return ($x =~ /^((\s|(กก))*($pattern)\s*)+/ ? 1 : 0); } |