diff options
| author | fukachan <fukachan> | 2006-04-02 06:29:22 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-04-02 06:29:22 +0000 |
| commit | f50d86a43eb8140cfd161c958ec27732749bd00d (patch) | |
| tree | 8c0076446d00581d26c01b18a5fe995a67f2b78f /fml | |
| parent | 17e26d82d054b84cb78efc83de93aec95038f937 (diff) | |
| download | fml8-f50d86a43eb8140cfd161c958ec27732749bd00d.tar.gz fml8-f50d86a43eb8140cfd161c958ec27732749bd00d.tar.bz2 fml8-f50d86a43eb8140cfd161c958ec27732749bd00d.zip | |
clean up input buffer (nuke \s+$)
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Log.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/fml/lib/FML/Log.pm b/fml/lib/FML/Log.pm index 4789266b..11392d66 100644 --- a/fml/lib/FML/Log.pm +++ b/fml/lib/FML/Log.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi # -# $FML: Log.pm,v 1.31 2005/08/15 12:23:13 fukachan Exp $ +# $FML: Log.pm,v 1.32 2005/08/23 08:28:20 fukachan Exp $ # package FML::Log; @@ -86,6 +86,9 @@ sub Log my $level = ''; my $rdate = ''; + # clean up + $mesg =~ s/[\s\r\n]*$//; + # simple check: null $mesg string is invalid. return undef unless defined $mesg; return undef unless $mesg; |