diff options
| -rw-r--r-- | fml/lib/FML/Process/Configure.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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); |