From 2adbec34908ff8daafcaad6bde3a686aac48cee7 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 17 Feb 2002 13:46:55 +0000
Subject: fix file name in searching message template

---
 fml/lib/FML/Process/Kernel.pm | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'fml/lib/FML/Process/Kernel.pm')

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{
-- 
cgit v1.2.1