From 29025194f76fdb6df53ba9ffeb1bbd1e081cfa2d Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 10 Nov 2001 04:00:26 +0000
Subject: bug fix: format $reason

---
 fml/lib/FML/Process/Switch.pm | 4 ++--
 fml/libexec/loader            | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm
index f705526b..2bf82274 100644
--- a/fml/lib/FML/Process/Switch.pm
+++ b/fml/lib/FML/Process/Switch.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: Switch.pm,v 1.33 2001/11/09 00:05:19 fukachan Exp $
+# $FML: Switch.pm,v 1.34 2001/11/09 13:23:14 fukachan Exp $
 #
 
 package FML::Process::Switch;
@@ -178,7 +178,7 @@ sub main::Bootstrap2
 	    croak($reason);
 	}
 	else {
-	    $reason =~ s/[\n\s]*at.*$//m;
+	    $reason =~ s/[\n\s]*\s+at\s+.*$//m;
 	    croak($reason);
 	}
     }
diff --git a/fml/libexec/loader b/fml/libexec/loader
index e1617600..b3a31026 100755
--- a/fml/libexec/loader
+++ b/fml/libexec/loader
@@ -4,7 +4,7 @@
 # Copyright (C) 2000-2001 Ken'ichi Fukamachi
 #          All rights reserved. 
 #
-# $FML: loader,v 1.18 2001/10/08 15:44:03 fukachan Exp $
+# $FML: loader,v 1.19 2001/11/09 00:03:31 fukachan Exp $
 #
 
 eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
@@ -94,7 +94,7 @@ sub Bootstrap
 		croak("fail to execute Bootstrap2($main_cf_file)\n$@\n");
 	    }
 	    else {
-		$reason =~ s/[\n\s]*at.*$//m;
+		$reason =~ s/[\n\s]*\s+at\s+.*$//m;
 		print STDERR "Error: ", $reason, "\n";
 		exit(1);
 	    }
-- 
cgit v1.2.1