Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
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 browsing the Monastery: (6)
As of 2015-07-04 17:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls