prepare a hook to inform some hints via $main_cf

1 files changed, 10 insertions, 4 deletions

diff --git a/fml/libexec/loader.in b/fml/libexec/loader.in
index 8652cf37..1b182682 100755
--- a/fml/libexec/loader.in
+++ b/fml/libexec/loader.in
@@ -1,16 +1,16 @@
 #! @PERL@ -w
 #-*- perl -*-
 #
-# Copyright (C) 2000-2001 Ken'ichi Fukamachi
+# Copyright (C) 2000-2002 Ken'ichi Fukamachi
 #          All rights reserved. 
 #
-# $FML: loader.in,v 1.7 2001/11/27 11:50:26 fukachan Exp $
+# $FML: loader.in,v 1.8 2001/12/16 13:32:50 fukachan Exp $
 #
 
 eval 'exec @PERL@ -S $0 ${1+"$@"}'
         if $running_under_some_shell;
 
-use vars qw($running_under_some_shell);
+use vars qw($running_under_some_shell $hints);
 use strict;
 use IO::File;
 
@@ -24,6 +24,9 @@ delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
     my $exec_prefix = "@exec_prefix@";
     my $main_cf     = "@fmlconfdir@/main.cf";
 
+    # hints for further processing
+    # $hints = '__hints_for_fml_process__';
+
     eval q{ Bootstrap($main_cf);};
 
     # not use Carp.pm to be quiet if needed 
@@ -109,6 +112,9 @@ sub Bootstrap
 	__CROAK("\$lib_dir not defined in main.cf");
     }
 
+    # 2.1.2 inherit some parameters to change behaviour
+    $main_cf->{ _hints } = $hints;
+
     # 2.2 load version dependent Bootstrap2(), 
     #     which is imported from FML::Process::Switch
     eval {
@@ -266,7 +272,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001 Ken'ichi Fukamachi
+Copyright (C) 2000-2002 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.