Thought it was time to get mod_perl up and running.
Hit a problem already on install.
When running www.domain.com/mod_perl/community/install.cgi
Apache error;
Useless use of a constant in void context at /usr/local/apache/www/domain/code/community/install.cgi line 8612. "my" variable $res masks earlier declaration in same scope at /usr/local/apache/www/domain/code/community/install.cgi line 8811
Line 8612: $i->{defaults}->{"Admin Email"} ||- 'webmaster@example.com';
# Force user to pick a sensible default. # $i->{defaults}->{"Private Path"} ||= $path . '/private'; $i->{defaults}->{"SMTP/Sendmail"}||= GT::Installer->find_sendmail(); $i->{defaults}->{"Path to Perl"} ||= GT::Installer->find_perl(); $i->{defaults}->{"Admin Email"} ||- 'webmaster@example.com'; return 1; }
Line 8811: my $res = $e->add_col(
# Add signup_ip_env and signup_env columns $i->print("\tAdding signup_ip_env column ... \n"); my $res = $e->add_col( comm_signup_env => { type => 'TEXT', form_display => 'Signup Environment' }, ); if ($res) { $i->print("\tOk.\n"); } else { $i->print("\tFailed: $GT::SQL::error\n"); } $i->print("Upgrade completed\n\n"); }
Hit a problem already on install.
When running www.domain.com/mod_perl/community/install.cgi
Apache error;
Useless use of a constant in void context at /usr/local/apache/www/domain/code/community/install.cgi line 8612. "my" variable $res masks earlier declaration in same scope at /usr/local/apache/www/domain/code/community/install.cgi line 8811
Line 8612: $i->{defaults}->{"Admin Email"} ||- 'webmaster@example.com';
# Force user to pick a sensible default. # $i->{defaults}->{"Private Path"} ||= $path . '/private'; $i->{defaults}->{"SMTP/Sendmail"}||= GT::Installer->find_sendmail(); $i->{defaults}->{"Path to Perl"} ||= GT::Installer->find_perl(); $i->{defaults}->{"Admin Email"} ||- 'webmaster@example.com'; return 1; }
Line 8811: my $res = $e->add_col(
# Add signup_ip_env and signup_env columns $i->print("\tAdding signup_ip_env column ... \n"); my $res = $e->add_col( comm_signup_env => { type => 'TEXT', form_display => 'Signup Environment' }, ); if ($res) { $i->print("\tOk.\n"); } else { $i->print("\tFailed: $GT::SQL::error\n"); } $i->print("Upgrade completed\n\n"); }