Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Think about Loose Coupling
 
PerlMonks  

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


Comment on Re: mod_perl bareword error
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

    SSF

        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; } ....
        HTH,
        SSF
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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://852386]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2014-04-19 19:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (483 votes), past polls