The weird thing, is that line 506 is just this: use POSIX; I'm also seeing this coming up a lot too:[Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::EXDEV: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/Too +ls.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::_SC_TZNAME_MAX: none vs () at /srv/www/site.net/www/cgi-bin/admin +/Want/Tools.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::EIDRM: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/Too +ls.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::VINTR: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/Too +ls.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::O_RDWR: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/To +ols.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::_PC_MAX_CANON: none vs () at /srv/www/site.net/www/cgi-bin/admin/ +Want/Tools.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::DBL_MIN_10_EXP: none vs () at /srv/www/site.net/www/cgi-bin/admin +/Want/Tools.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::VEOL: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/Tool +s.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::ENOSTR: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/To +ols.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::B19200: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/To +ols.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::ECANCELED: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want +/Tools.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::S_IROTH: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/T +ools.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::IXON: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/Tool +s.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::CS7: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/Tools +.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::ECHOE: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/Too +ls.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::ECONNRESET: none vs () at /srv/www/site.net/www/cgi-bin/admin/Wan +t/Tools.pm line 506. [Sat Nov 21 14:13:05 2015] Tools.pm: Prototype mismatch: sub Want::Too +ls::CSIZE: none vs () at /srv/www/site.net/www/cgi-bin/admin/Want/Too +ls.pm line 506.
Its not causing a major issue (as far as I can see), but I can see it being a bit annoying when the traffic picks up, as the log files will get large VERY quick.#!/usr/bin/perl use lib '/srv/www/site.net/www/cgi-bin/admin'; use Links::mod_perl; use Apache2::Connection (); use Apache2::RequestRec (); use APR::Table (); use POSIX; use CGI::Carp; use LWP::Simple; use GeoIP2::WebService::Client; # Automatically fix up the REMOTE_IP environment variable. sub My::ProxyRemoteAddr ($) { # ------------------------------------------------ my $r = shift; my $c = $r->connection(); my $ip = $c->remote_ip; unless ($ip eq '127.0.0.1') { return OK; } # Select last value in the chain -- ip from most recent proxy (to prev +ent fake ip injection) if (my ($ip) = $r->headers_in->{'HTTP_X_REAL_IP'} =~ /([^,\s]+)$/) + { $r->connection->remote_ip($ip); } return OK; } 1;
In reply to Weird mod_perl issue, popping up error on error_log by ultranerds
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |