You could declare different package names and call the config variables explicitly: see http://perl.apache.org/guide/porting.html#Configuration_Files_Writing_Dy ----- Original Message ----- From: Wang Xingyu 王兴宇 [上海] <[EMAIL PROTECTED]> To: Wang Xingyu 王兴宇 [上海] <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]> Sent: Tuesday, June 05, 2001 9:15 PM Subject: 答复: In module require configuration file > Sorry.I find ,require different configuration file in module is > impossibility. > Have a mistake ,my mandrake box run in cgi environment as a result of > apache configure. > > So ,in mod-perl,I dont find any way require different configuration. > > > -----?-ê?óê?t----- > > ·￠?tè?: Wang Xingyu í?D?ó? [é?o￡] > > ·￠?íê±??: 2001?ê6??5è? 15:22 > > ê??tè?: [EMAIL PROTECTED] > > ?÷ìa: In module require configuration file > > > > > > Hi all: > > > > In mod-perl,my module (mymodule.pm) will read config var from a > > file ( require conf.pm).I put the require in my new() function. > > In one instance,they will work well. > > But ,I will run two or more instance (the two conf.pm is > > different.),the mymodule.pm will have error.Because it > > require conf.pm > > and maybe get other conf.pm. > > I am test false in redhat 7,the apache is 1.3.14 and > > mod-perl is > > 1.24. And re-compile apache 1.3.20 and mod-perl 1.25,and test false > > also. > > > > But I am test in Mandrake 8 ,the apache is 1.3.19 and > > mod-perl is > > 1.25.The two instance has worked! > > > > I wonder,why redhat un-support two instance and > > Mandrake is well? > > > > Thanks and sorry for my english. > > > > > > The sample code: > > > > ========================================================= > > #!/usr/bin/perl > > # mymodule.pm > > > > Package mymodule; > > > > sub new > > { > > my $type = shift; > > my $self = {}; > > require "./conf.pm"; > > bless $self,$type; > > } > > > > ========================================================= > > #!/usr/bin/perl > > # conf.pm > > # configuration file one > > package conf; > > use strict; > > use vars qw($conf); > > > > # defined configure variable > > $conf = > > { > > # web name. > > 'web_name' => 'foo.com', > > } > > > > > > > > ======================================================== > > #!/usr/bin/perl > > # conf.pm > > # configuration file two > > package conf; > > use strict; > > use vars qw($conf); > > > > # defined configure variable > > $conf = > > { > > # web name. > > 'web_name' => 'foo.com', > > } > > > > ========================================================= > > #!/usr/bin/perl > > # mycgi.pl > > use mymodule; > > my $m = mymodule->new(); > > print $conf::conf->{'web_name'}; > > > > > > ========================================================== > > >
