Gossamer Forum
(Advanced Search)
for
Home : Products : Others : Gossamer Community :

mod_perl community "Useless use of a constant" error

May 4, 2004, 5:35 AM
nathanx
User (88 posts)
May 4, 2004, 5:35 AM
Post #1 of 15
Views: 6209
Shortcut
Quote Reply
mod_perl community "Useless use of a constant" error
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"); }
May 4, 2004, 6:32 AM
Andy
Veteran / Moderator (18441 posts)
Andy's avatar
May 4, 2004, 6:32 AM
Post #2 of 15
Views: 6098
Shortcut
Quote Reply
Re: [catlovette] mod_perl community "Useless use of a constant" error In reply to
Mmm.. what happens if you change;

Code:
$i->{defaults}->{"Admin Email"} ||- 'webmaster@example.com';

to

Code:
$i->{defaults}->{"Admin Email"} ||= 'webmaster@example.com';

Does that make a difference?

Cheers

Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
May 4, 2004, 6:58 AM
nathanx
User (88 posts)
May 4, 2004, 6:58 AM
Post #3 of 15
Views: 6092
Shortcut
Quote Reply
Re: [Andy] mod_perl community "Useless use of a constant" error In reply to
yes it makes a difference.

Just get;

"my" variable $res masks earlier declaration in same scope at /usr/local/apache/www/ispy247.com/code/community/install.cgi line 8811.

8811: my $res = $e->add_col(
Code:

# 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");}


Im not clear what is going on here. Does this mean I could get other errors because im using mod_perl?
May 4, 2004, 7:05 AM
Andy
Veteran / Moderator (18441 posts)
Andy's avatar
May 4, 2004, 7:05 AM
Post #4 of 15
Views: 6121
Shortcut
Quote Reply
Re: [catlovette] mod_perl community "Useless use of a constant" error In reply to
I'm not sure. This is version 1.0.1 you are trying to install? I think thats the latest version.

Cheers

Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
May 4, 2004, 7:19 AM
nathanx
User (88 posts)
May 4, 2004, 7:19 AM
Post #5 of 15
Views: 6082
Shortcut
Quote Reply
Re: [Andy] mod_perl community "Useless use of a constant" error In reply to
yes Andy its the latest 1.0.1
May 4, 2004, 7:25 AM
Andy
Veteran / Moderator (18441 posts)
Andy's avatar
May 4, 2004, 7:25 AM
Post #6 of 15
Views: 6091
Shortcut
Quote Reply
Re: [catlovette] mod_perl community "Useless use of a constant" error In reply to
If you don't mind sending over FTP details etc, then I don't mind having a quick look for you. Otherwise, I guess its a case of waiting for a reply from GT :(

Cheers

Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
May 4, 2004, 8:27 AM
nathanx
User (88 posts)
May 4, 2004, 8:27 AM
Post #7 of 15
Views: 6088
Shortcut
Quote Reply
Re: [Andy] mod_perl community "Useless use of a constant" error In reply to
I sure can if GT dont get back in time.

I need to speak to the man about it though and get you an account set up. Also its dev/virtual server so its not normally setup. ow and need a static IP as its firewalled.
May 4, 2004, 8:28 AM
Andy
Veteran / Moderator (18441 posts)
Andy's avatar
May 4, 2004, 8:28 AM
Post #8 of 15
Views: 6085
Shortcut
Quote Reply
Re: [catlovette] mod_perl community "Useless use of a constant" error In reply to
Ah, don't think I can be of much help to you then, as I'm not running on a static IP :( (dialup, at least for 15 more days).

Cheers

Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
May 4, 2004, 9:05 AM
nathanx
User (88 posts)
May 4, 2004, 9:05 AM
Post #9 of 15
Views: 6116
Shortcut
Quote Reply
Re: [Andy] mod_perl community "Useless use of a constant" error In reply to
Dial-up! That’s a bit medieval.

How do you cope? Wink
May 4, 2004, 9:08 AM
Andy
Veteran / Moderator (18441 posts)
Andy's avatar
May 4, 2004, 9:08 AM
Post #10 of 15
Views: 6090
Shortcut
Quote Reply
Re: [catlovette] mod_perl community "Useless use of a constant" error In reply to
Quote:
Dial-up! That’s a bit medieval.

Yeah, tell me about it!

Quote:
How do you cope?

I generally find that smoking a lot of cigarettes, and taking regular breaks (to stop headaches) generally keeps my temper under wraps Tongue

Cheers

Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
May 5, 2004, 3:31 AM
nathanx
User (88 posts)
May 5, 2004, 3:31 AM
Post #11 of 15
Views: 6109
Shortcut
Quote Reply
Re: [Andy] mod_perl community "Useless use of a constant" error In reply to
This is just a guess. Does the directory im installing in have to be a normal ScriptAlias for cgi?

Then after install i enable the mod_perl for the directory?
May 5, 2004, 3:33 AM
Andy
Veteran / Moderator (18441 posts)
Andy's avatar
May 5, 2004, 3:33 AM
Post #12 of 15
Views: 6069
Shortcut
Quote Reply
Re: [catlovette] mod_perl community "Useless use of a constant" error In reply to
Afraid I'm not sure. I try to stay as far away from mod_perl as possible when installing/developing, as it has a horrible habit of caching my scripts, and making debugging a PITA Frown

Sorry I can't be of more help.

Cheers

Andy (mod)
andy@ultranerds.co.uk
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package | GLinks ULTRA Package PRO
Links SQL Plugins | Website Design and SEO | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
May 5, 2004, 6:46 AM
afinlr
Veteran (1921 posts)
May 5, 2004, 6:46 AM
Post #13 of 15
Views: 6063
Shortcut
Quote Reply
Re: [catlovette] mod_perl community "Useless use of a constant" error In reply to
Try installing from shell - this removes any mod_perl related problems.
May 5, 2004, 8:43 AM
nathanx
User (88 posts)
May 5, 2004, 8:43 AM
Post #14 of 15
Views: 6067
Shortcut
Quote Reply
Re: [afinlr] mod_perl community "Useless use of a constant" error In reply to
I thought about doing that. But wasnt sure it that would cause more errors!
May 12, 2004, 2:43 AM
nathanx
User (88 posts)
May 12, 2004, 2:43 AM
Post #15 of 15
Views: 6052
Shortcut
Quote Reply
Re: [catlovette] mod_perl community "Useless use of a constant" error In reply to
ok. Just for anyone else who may have this problem.
I installed with CGI enabled for the install directory. Then enabled mod_perl for the applications and directory.
This worked fine.