Re^3: Using packages to store global configuration vars

The first possibility that comes to mind is that you may not have restarted apache. One of the disadvantages of mod_perl development is that it doesn't check for changes to your code, so it's likely to still be running the original version if you haven't. (There is a switch you can set in httpd.conf which helps with this, but I don't recall the incantation offhand.)

The second is that, in your original question, you said you had use Config at "The tail end of [your] startup.pl". Unless something else has caused Config.pm to be loaded earlier in your startup process, the perl compiler won't know about anything from Config until it hits that use line. Move use Config up towards the top of your code, so that it appears before any references to the variables in Config.pm, and it should take care of that problem.

If neither of those things resolves your problem, try stripping both startup.pl and Config.pm down to the bare minimum necessary to demonstrate the issue and post them in full (not just snippets) so that we can see exactly what's going on. Unless, that is, you find a solution while you're in the process of creating your minimum failing case...

Comment on Re^3: Using packages to store global configuration vars Select or Download Code

Replies are listed 'Best First'.
Re^4: Using packages to store global configuration vars by fuzzyping (Chaplain) on Sep 06, 2009 at 18:09 UTC
I always restart Apache so that's not the problem. Here are the full contents of startup.pl and Config.pm as well as the first 20 or so lines of index.cgi. Contents of startup.pl: `use lib qw(/var/www/blogapp); use Config (); use CGI; use DBI; use DBD::SQLite; use HTML::Template; use XML::RSS; use Net::SMTP; use Captcha::reCAPTCHA; use HTML::Entities; use HTTP::Request::Common; use URI::_foreign; use Errno; use Net::HTTP; use IO::Select; use Compress::Zlib; use Log::Agent; use URI::http; use LWP::Protocol::http; use Carp::Heavy; 1;` [download] Contents of Config.pm: package Config.pm; use strict; our $database = 'data/site.db'; our $tmplfile = 'templates/index.html'; our $blog_title = 'example.com'; our $blog_subtitle = 'My New Blog'; our $blog_url = 'http://www.example.com/'; our $blog_owner = 'user@example.com'; our $blog_rights = 'Copyright 2009, Example User'; our $feed_updates = 'hourly'; our $captcha_pubkey = ''; our $captcha_seckey = ''; our $comment_max_length = '1000'; our $comments_allowed = 0; our $smtp_server = 'localhost:25'; our $smtp_sender = 'blogapp@example.com'; 1; [download] First ~20 lines of index.cgi: use strict; my $database = $Config::database; my $tmplfile = $Config::tmplfile; my $blog_title = $Config::blog_title; my $blog_subtitle = $Config::blog_subtitle; my $blog_url = $Config::blog_url; my $blog_owner = $Config::blog_owner; my $blog_rights = $Config::blog_rights; my $feed_updates = $Config::feed_updates; my $captcha_pubkey = $Config::captcha_pubkey; my $captcha_seckey = $Config::captcha_seckey; my $comment_max_length = $Config::comment_max_length; my $comments_allowed = $Config::comments_allowed; my $smtp_server = $Config::smtp_server; my $smtp_sender = $Config::smtp_sender; my $cgi = CGI->new; my $dbh = DBI->connect("DBI:SQLite:dbname=$database", '', '', { RaiseE +rror => 1 }) \|\| die $DBI::errstr ; print STDERR "FOOBAR $Config::blog_title\n"; my $template = HTML::Template->new(filename => $tmplfile, die_on_bad_p +arams => 0); [download] -fp	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: Using packages to store global configuration vars
by fuzzyping (Chaplain) on Sep 06, 2009 at 18:09 UTC

I always restart Apache so that's not the problem. Here are the full contents of startup.pl and Config.pm as well as the first 20 or so lines of index.cgi.

Contents of startup.pl:

use lib qw(/var/www/blogapp);
use Config ();
use CGI;
use DBI;
use DBD::SQLite;
use HTML::Template;
use XML::RSS;
use Net::SMTP;
use Captcha::reCAPTCHA;
use HTML::Entities;
use HTTP::Request::Common;
use URI::_foreign;
use Errno;
use Net::HTTP;
use IO::Select;
use Compress::Zlib;
use Log::Agent;
use URI::http;
use LWP::Protocol::http;
use Carp::Heavy;

1;
[download]

Contents of Config.pm:

package Config.pm;
use strict;

our $database = 'data/site.db';
our $tmplfile = 'templates/index.html';
our $blog_title = 'example.com';
our $blog_subtitle = 'My New Blog';
our $blog_url = 'http://www.example.com/';
our $blog_owner = 'user@example.com';
our $blog_rights = 'Copyright 2009, Example User';
our $feed_updates = 'hourly';
our $captcha_pubkey = '';
our $captcha_seckey = '';
our $comment_max_length = '1000';
our $comments_allowed = 0;
our $smtp_server = 'localhost:25';
our $smtp_sender = 'blogapp@example.com';

1;
[download]

First ~20 lines of index.cgi:

use strict;
my $database = $Config::database;
my $tmplfile = $Config::tmplfile;
my $blog_title = $Config::blog_title;
my $blog_subtitle = $Config::blog_subtitle;
my $blog_url = $Config::blog_url;
my $blog_owner = $Config::blog_owner;
my $blog_rights = $Config::blog_rights;
my $feed_updates = $Config::feed_updates;
my $captcha_pubkey = $Config::captcha_pubkey;
my $captcha_seckey = $Config::captcha_seckey;
my $comment_max_length = $Config::comment_max_length;
my $comments_allowed = $Config::comments_allowed;
my $smtp_server = $Config::smtp_server;
my $smtp_sender = $Config::smtp_sender;

my $cgi = CGI->new;
my $dbh = DBI->connect("DBI:SQLite:dbname=$database", '', '', { RaiseE
+rror => 1 }) || die $DBI::errstr
;
print STDERR "FOOBAR $Config::blog_title\n";
my $template = HTML::Template->new(filename => $tmplfile, die_on_bad_p
+arams => 0);
[download]

-fp

[reply]
[d/l]
[select]