Perl and Memcached

[freshfitz]

We have this scripting working on one server and are trying to transfer it to a different server and we are getting this error the working server is fedora fc7 the new on is fedora fc12.

When we run the script from a command line we get:

web root 23:42:09 $ perl http-root/cms.cgi
Modification of a read-only value attempted at /share/RJ/Obj/Memcached.pm line 24.
Compilation failed in require at (eval 6) line 3.
...propagated at /usr/lib/perl5/5.10.0/base.pm line 93.
BEGIN failed--compilation aborted at /share/test/RJ/Obj/DOMAIN.pm line 10.
Compilation failed in require at /share/test/WL/Interface.pm line 7.
BEGIN failed--compilation aborted at /share/test/WL/Interface.pm line 7.
Compilation failed in require at http-root/cms.cgi line 14.
BEGIN failed--compilation aborted at http-root/cms.cgi line 14.

FCGI Log File:

2010-05-21 23:34:45: (mod_fastcgi.c.1734) connect failed: Connection refused on unix:/test/=sock/3-fcgi.sock
2010-05-21 23:34:45: (mod_fastcgi.c.3037) backend died; we'll disable it for 1 seconds and send the request to another backend instead: reconnects: 0 load: 1
2010-05-21 23:34:45: (mod_fastcgi.c.1734) connect failed: Connection refused on unix:/test/=sock/4-fcgi.sock
2010-05-21 23:34:45: (mod_fastcgi.c.3037) backend died; we'll disable it for 1 seconds and send the request to another backend instead: reconnects: 1 load: 1
2010-05-21 23:34:45: (mod_fastcgi.c.1734) connect failed: Connection refused on unix:/test/=sock/1-fcgi.sock
2010-05-21 23:34:45: (mod_fastcgi.c.3037) backend died; we'll disable it for 1 seconds and send the request to another backend instead: reconnects: 2 load: 1
2010-05-21 23:34:45: (mod_fastcgi.c.1734) connect failed: Connection refused on unix:/test/=sock/2-fcgi.sock
2010-05-21 23:34:45: (mod_fastcgi.c.3037) backend died; we'll disable it for 1 seconds and send the request to another backend instead: reconnects: 3 load: 1
2010-05-21 23:34:45: (mod_fastcgi.c.3608) all handlers for /cms.cgi? on .cgi are down.

here is memcached.pm if we comment out the bless line it works

=cut
    simple class for managing our per-process memcached connection
    this will help us avoid reconnecting/restarting our connection to
    a memcached all the time

    TODO: write Tie::Memcached :)

=cut

package RJ::Obj::Memcached;
use base 'Cache::Memcached';
use strict;
use warnings;

our ($mc) = (undef);
use RJ::VarRegistry;

sub new ($) {
    unless ($mc) {
        $mc = Cache::Memcached->new(RJ::VarRegistry::get('MEMCACHED_OPTIONS'));

        die RJ::Error->new('_toplevel', 'MEMD_ERROR') unless $mc;

        bless $mc, $_[0];
    }
    return $mc;
}

1;