Summary: CGI.pm problems in BEGIN blocks

[Dave Morgan]

Hi All,
        Basically comes down to you cannot call the CGI.pm module in a
functional style within a block of code that is loaded at startup by a
mod-perl enabled web server. 

Using CGI.pm in an OOP way eliminates the problem.

#######################################
# this code causes problems with the usage 
# of CGI.pm with mod-perl
package NOGOOD;

require Exporter;
use strict;
use CGI qw/:standard/;

our (@ISA, @EXPORT);
our ($USERID, $PASSWORD, $select_list);

@ISA    = qw(Exporter);
@EXPORT = qw($USERID $PASSWORD $select_list);
          
BEGIN{
        $select_list = scrolling_list(-name=>'TEST',
                                -values=>[1,2,3,4],
                                -default=>'1',
                                -size=> 1);
}
1;
# END

#######################################
# this code WORKS
package GOOD;

require Exporter;
use strict;
use CGI;

our (@ISA, @EXPORT);
our ($USERID, $PASSWORD, $select_list);

@ISA    = qw(Exporter);
@EXPORT = qw($USERID $PASSWORD $select_list);
          
BEGIN{
        my $cgihandler = new CGI;
        $select_list = $cgihandler->scrolling_list(-name=>'TEST',
                                -values=>[1,2,3,4],
                                -default=>'1',
                                -size=> 1);
}
1;
# END

I can't believe no-one else has run in to this. Something
to do with the default instantiation of CGI is my guess.

Thanks to all

Dave
-- 
Dave Morgan
[EMAIL PROTECTED]
403 399 2442