From a1d696e71edec8bfdbd43a6d753d3c79e4ac7e7e Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sat, 20 Apr 2002 05:40:02 +0000
Subject: log raw error message

---
 fml/lib/FML/Process/Configure.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'fml')

diff --git a/fml/lib/FML/Process/Configure.pm b/fml/lib/FML/Process/Configure.pm
index 24b885e6..f4811bc4 100644
--- a/fml/lib/FML/Process/Configure.pm
+++ b/fml/lib/FML/Process/Configure.pm
@@ -3,7 +3,7 @@
 # Copyright (C) 2001,2002 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: Configure.pm,v 1.37 2002/02/17 13:45:10 fukachan Exp $
+# $FML: Configure.pm,v 1.38 2002/04/10 04:24:15 fukachan Exp $
 #
 
 package FML::Process::Configure;
@@ -241,8 +241,10 @@ sub _makefml
 	    ; # not show anything
 	}
 	else {
+	    my $r = $@;
 	    LogError("command $method fail");
-	    if ($@ =~ /^(.*)\s+at\s+/) {
+	    LogError($r);
+	    if ($r =~ /^(.*)\s+at\s+/) {
 		my $reason = $1;
 		Log($reason); # pick up reason
 		croak($reason);
-- 
cgit v1.2.1