Perl Problems

[benito]

I have several perl issues on my server. I cant edit DNS on WHM and have other errors, all related to perl.

How can i clean all perl and make a fresh install again ?

 

[AndyReed]

How can i clean all perl and make a fresh install again ?

Don't try to delete Perl, manually. Follow these instructions, to re-install a fresh copy of Perl v5.8.7:
wget http://layer1.cpanel.net/perl587installer.tar.gz;tar xfz perl587installer.tar.gz
cd perl*
./install
/scripts/upcp --force
rm -Rf perl*
/usr/local/cpanel/bin/checkperlmodules

 

[benito]

I try that and everything looks fine until it stop at an error:

typedef 'SCREEN' found
cc -c  -I/usr/include/ncurses -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm -O2   -DVERSION=\"1.15\" -DXS_VERSION=\"1.15\" -fpic "-I/usr/lib/perl5/5.8.7/i686-linux/CORE"   Curses.c
In file included from /usr/lib/perl5/5.8.7/i686-linux/CORE/perl.h:2056,
                 from Curses.c:22:
/usr/lib/perl5/5.8.7/i686-linux/CORE/handy.h:85:1: warning: "bool" redefined
In file included from /usr/include/ncurses/ncurses.h:143,
                 from c-config.h:9,
                 from Curses.c:11:
/usr/lib/gcc/i386-redhat-linux/3.4.6/include/stdbool.h:36:1: warning: this is the location of the previous definition
In file included from Curses.c:358:
CursesFun.c: In function `XS_Curses_newterm':
CursesFun.c:1279: warning: initialization from incompatible pointer type
CursesFun.c:1280: warning: initialization from incompatible pointer type
CursesFun.c: In function `XS_Curses_putwin':
CursesFun.c:3453: warning: initialization from incompatible pointer type
CursesFun.c: In function `XS_Curses_getwin':
CursesFun.c:3472: warning: initialization from incompatible pointer type
Running Mkbootstrap for Curses ()
chmod 644 Curses.bs
rm -f blib/arch/auto/Curses/Curses.so
LD_RUN_PATH="/usr/lib" cc  -shared -L/usr/local/lib Curses.o  -o blib/arch/auto/Curses/Curses.so   -lncurses
chmod 755 blib/arch/auto/Curses/Curses.so
cp Curses.bs blib/arch/auto/Curses/Curses.bs
chmod 644 blib/arch/auto/Curses/Curses.bs
Manifying blib/man3/Curses.3
  /usr/bin/make  -- OK
Running make install
Installing /usr/lib/perl5/site_perl/5.8.7/i686-linux/auto/Curses/Curses.so
Files found in blib/arch: installing files in blib/lib into architecture dependent library tree
Installing /usr/lib/perl5/site_perl/5.8.7/i686-linux/Curses.pm
Installing /usr/share/man/man3/Curses.3
Writing /usr/lib/perl5/site_perl/5.8.7/i686-linux/auto/Curses/.packlist
Appending installation info to /usr/lib/perl5/5.8.7/i686-linux/perllocal.pod
  /usr/bin/make install UNINST=1 -- OK
DBI is up to date (1.53).
Data::ShowTable is up to date (undef).
Mysql is up to date (1.2401).
DBD::mysql is up to date (4.00).
Running install for module GD
Running make for L/LD/LDS/GD-2.35.tar.gz
CPAN: LWP::UserAgent loaded ok
Fetching with LWP:
  http://cpan.erlbaum.net/authors/id/L/LD/LDS/GD-2.35.tar.gz
Undefined subroutine &Compress::Zlib::gzopen called at /usr/lib/perl5/5.8.7/CPAN/Tarzip.pm line 102.
expect: spawn id exp4 not open
    while executing
"expect -nobrace {*perlmod--Install done*} {
                        exit
                } {*Apache source not found*} {
                        send "q\r"
                } {*Which OpenSSL build path*} {
                        send "/usr\r..."
    invoked from within
"expect {
                "*perlmod--Install done*" {
                        exit
                }
                "*Apache source not found*" {
                        send "q\r"
                }
                "*Which OpenSSL build path*" {
                        send "/usr\r"..."
    ("while" body line 2)
    invoked from within
"while {1} {
        expect {
                "*perlmod--Install done*" {
                        exit
                }
                "*Apache source not found*" {
                        send "q\r"
                }
                "*Which OpenSSL build path*" {
                ..."
    (file "./expectperl" line 9)
[email protected] [~/perl587installer]#

 

[burstcorey]

Yes, we are seeing the same thing as well. This seems to only be on Fedora Core 5 servers. Any possible solutions would be great.

 

[benito]

Yes, we are seeing the same thing as well. This seems to only be on Fedora Core 5 servers. Any possible solutions would be great.

I have RHEL 4 and have the error, so is not only fedora.

 

[burstcorey]

This is what we are seeing during any upcp or when running checkperlmodules:

Can't find string terminator "'" anywhere before EOF at (eval 316) line 369.
at /usr/lib/perl5/5.8.7/CPAN.pm line 5246
CPAN::Distribution::CHECKSUM_check_file('CPAN::Distribution=HASH(0xb477b08)', '/home/.cpan/sources/authors/id/L/LD/LDS/CHECKSUMS') called at /usr/lib/perl5/5.8.7/CPAN.pm line 5182
CPAN::Distribution::verifyCHECKSUM('CPAN::Distribution=HASH(0xb477b08)') called at /usr/lib/perl5/5.8.7/CPAN.pm line 4662
CPAN::Distribution::get('CPAN::Distribution=HASH(0xb477b08)') called at /usr/lib/perl5/5.8.7/CPAN.pm line 5462
CPAN::Distribution::make('CPAN::Distribution=HASH(0xb477b08)') called at /scripts/realperlinstaller line 43
CPAN::Distribution::test('CPAN::Distribution=HASH(0xb477b08)') called at /usr/lib/perl5/5.8.7/CPAN.pm line 6106
CPAN::Distribution::install('CPAN::Distribution=HASH(0xb477b08)') called at /usr/lib/perl5/5.8.7/CPAN.pm line 7126
eval {...} called at /usr/lib/perl5/5.8.7/CPAN.pm line 7125
CPAN::Module::rematein('CPAN::Module=HASH(0xb0b6bd8)', 'install') called at /usr/lib/perl5/5.8.7/CPAN.pm line 7201
CPAN::Module::install('CPAN::Module=HASH(0xb0b6bd8)') called at /usr/lib/perl5/5.8.7/CPAN.pm line 2521
CPAN::Shell::rematein('CPAN::Shell', 'install', 'CGI') called at /usr/lib/perl5/5.8.7/CPAN.pm line 2562
CPAN::Shell::__ANON__('CPAN::Shell', 'CGI') called at /scripts/realperlinstaller line 155
expect: spawn id exp6 not open
while executing
"expect -nobrace {*perlmod--Install done*} {
exit
} {*Apache source not found*} {
send "q\r"
} {*Which OpenSSL build path*} {
send "/usr\r..."
invoked from within
"expect {
"*perlmod--Install done*" {
exit
}
"*Apache source not found*" {
send "q\r"
}
"*Which OpenSSL build path*" {
send "/usr\r"..."
("while" body line 2)
invoked from within
"while {1} {
expect {
"*perlmod--Install done*" {
exit
}
"*Apache source not found*" {
send "q\r"
}
"*Which OpenSSL build path*" {
..."
(file "/scripts/expectperlinstaller" line 9)