Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

Re: mod_perl bareword error

by ysth (Canon)
on Aug 02, 2010 at 01:46 UTC ( #852386=note: print w/replies, xml ) Need Help??

in reply to mod_perl bareword error

Show at least the beginning part and around line 1105 of mail.fcgi?
A math joke: r = | |csc(θ)|+|sec(θ)|-||csc(θ)|-|sec(θ)|| |
Online Fortune Cookie Search
Office Space merchandise

Replies are listed 'Best First'.
Re^2: mod_perl bareword error
by ikegami (Pope) on Aug 02, 2010 at 03:58 UTC
    eval 1105, not line 1105. And it's apparently something like
    >perl -we"${foo::bar}::baz = 1;" Bareword found where operator expected at -e line 1, near "${foo::bar} +::baz" (Missing operator before ::baz?) syntax error at -e line 1, near "${foo::bar}::baz " Execution of -e aborted due to compilation errors.
Re^2: mod_perl bareword error
by sflitman (Hermit) on Aug 02, 2010 at 03:49 UTC
    If you think it can help your thought process:
    .... 1102 $sender=~s/\b$P{username}(?!@)//ig; 1103 $sender=~s/\b$P{email}\b//ig if defined $P{email}; 1104 map { $sender=~s/\b$_\b//ig } grep { $aliases{$_} eq $P{ +username} } keys %aliases; 1105 $sender=~s/,\s*,/,/g; 1106 $sender=~s/,\s*$//; 1107 $sender||=$P{username}; ....
    But I should point out that the error is for an eval, and line 1 of that eval, so it is really being emitted by ModPerl::Registry


        Absolutely, here you go, with minor redaction due to some restrictions from my client:
        use strict; use vars qw/..../; use Archive::Zip qw/:ERROR_CODES/; use CGI; use Data::Alias; use Date::Calc qw/Day_of_Week Decode_Date_US Decode_Month/; use Date::Extract; use Digest::SHA qw/sha1_base64/; use File::Copy; use GDBM_File; use HTML::Defang; use HTML::Entities; use Image::Size; use LWP::MediaTypes qw(guess_media_type read_media_types); use MIME::Entity; use MIME::Base64; use Text::Metaphone; use Time::HiRes qw/time/; BEGIN { $|=1; .... %dispatch=( 'edit' => \&do_edit, 'save' => \&do_save, 'undo' => \&do_undo, 'prior' => \&do_prior, 'next' => \&do_next, 'read' => \&do_read, .... }; } $query=new CGI; %cookie=$query->cookie('app'); %P=(); for $key ($query->param) { $value=encode_entities($query->param($key),'\x80-\xFF'); $P{$key}=$value; } ....

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://852386]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2018-05-26 16:00 GMT
Find Nodes?
    Voting Booth?