summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorfukachan <fukachan>2005-06-26 00:44:32 +0000
committerfukachan <fukachan>2005-06-26 00:44:32 +0000
commit06a734ebca1a78807efe5b445b0f12ec9d67cc7e (patch)
treedbacccafa58cf294df377f25ff2c5236ebc9b6e8
parentac09d1306e0e17be0150ac3cfa40ccb12df227a9 (diff)
downloadfml8-06a734ebca1a78807efe5b445b0f12ec9d67cc7e.tar.gz
fml8-06a734ebca1a78807efe5b445b0f12ec9d67cc7e.tar.bz2
fml8-06a734ebca1a78807efe5b445b0f12ec9d67cc7e.zip
use ... not eval q{use ...}. to avoid error
-rw-r--r--fml/lib/FML/CGI/User.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/CGI/User.pm b/fml/lib/FML/CGI/User.pm
index 65fef9cf..3364dc9d 100644
--- a/fml/lib/FML/CGI/User.pm
+++ b/fml/lib/FML/CGI/User.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: User.pm,v 1.12 2005/06/04 08:12:15 fukachan Exp $
+# $FML: User.pm,v 1.13 2005/06/04 08:51:28 fukachan Exp $
#
package FML::CGI::User;
@@ -150,7 +150,7 @@ sub _get_address_list
my $config = $curproc->config();
my $list = $config->get_as_array_ref( $map );
- eval q{ use FML::User::Control;};
+ use FML::User::Control;
unless ($@) {
my $obj = new FML::User::Control;
return $obj->get_user_list($curproc, $list);