diff options
| author | fukachan <fukachan> | 2002-02-17 13:46:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-02-17 13:46:55 +0000 |
| commit | 2adbec34908ff8daafcaad6bde3a686aac48cee7 (patch) | |
| tree | 693186289b5372abfc9816dce0d809cd07c675d7 | |
| parent | c72845fc89083628401acfda41ffc9b8b676657d (diff) | |
| download | fml8-2adbec34908ff8daafcaad6bde3a686aac48cee7.tar.gz fml8-2adbec34908ff8daafcaad6bde3a686aac48cee7.tar.bz2 fml8-2adbec34908ff8daafcaad6bde3a686aac48cee7.zip | |
fix file name in searching message template
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 6c70eb7d..4f5bc8b1 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.72 2002/01/30 15:27:59 fukachan Exp $ +# $FML: Kernel.pm,v 1.73 2002/02/01 12:03:56 fukachan Exp $ # package FML::Process::Kernel; @@ -292,7 +292,7 @@ sub unlock Log( "unlocked $lock_file"); } else { - croak("Error: cannot lock"); + croak("Error: cannot unlock"); } } @@ -539,6 +539,7 @@ If you attach a plain text with the charset = iso-2022-jp, =cut + sub reply_message { my ($curproc, $msg) = @_; @@ -582,7 +583,7 @@ sub reply_message_nl my $buf = ''; use File::Spec; - $class =~ s@\.@/@; # XXX replace the first "." only + $class =~ s@\.@/@g; # XXX replace the first "." only my $file = File::Spec->catfile($dir, $class); if (-f $file) { @@ -593,6 +594,9 @@ sub reply_message_nl close($fh); } } + else { + LogWarn("no such file: $file"); + } if (defined $buf) { eval q{ |