diff options
| author | fukachan <fukachan> | 2001-11-04 13:42:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-04 13:42:05 +0000 |
| commit | 6e912f75030ac2d84448231ae6be308a481aaa3a (patch) | |
| tree | 2785efad192cf053833091662f8a122c52e684d0 | |
| parent | 4b47901b3cb51898c03a9f020b5392305b0d040a (diff) | |
| download | fml8-6e912f75030ac2d84448231ae6be308a481aaa3a.tar.gz fml8-6e912f75030ac2d84448231ae6be308a481aaa3a.tar.bz2 fml8-6e912f75030ac2d84448231ae6be308a481aaa3a.zip | |
enhance close() to accept MH style param
| -rw-r--r-- | fml/lib/FML/Process/Switch.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Switch.pm b/fml/lib/FML/Process/Switch.pm index 205e907b..4b4e5b17 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.24 2001/11/04 04:42:52 fukachan Exp $ +# $FML: Switch.pm,v 1.25 2001/11/04 06:43:12 fukachan Exp $ # package FML::Process::Switch; @@ -169,8 +169,9 @@ sub main::Bootstrap2 FML::Process::Flow::ProcessStart($obj, $args); }; if ($@) { + my $reason = $@; if ($obj->can('help')) { eval $obj->help();}; - croak($@); + croak($reason); } } |