Perl error- Parentheses missing around...

[arhs]

I received this error message; does any one know how to fix it?

Parentheses missing around "my" list at 
/usr/lib/perl5/site_perl/5.8.1/File/Copy/Recursive.pm line 148.
Parentheses missing around "my" list at 
/usr/lib/perl5/site_perl/5.8.1/File/Copy/Recursive.pm line 202. 

[arhs]

fixed by re-installing perl:

wget http://layer1.cpanel.net/perl587installer.tar.gz
tar xfz perl587installer.tar.gz
cd perl*
./install


/scripts/upcp
cd
rm -Rf perl* 

[CP Advtge]

The automated update routine /scripts/upcp from the night before installed 'File-Copy-Recursive-0.17' which appears to have the bug in the Recursive.pm module.

Comparing File-Copy-Recursive-0.17 to File-Copy-Recursive-0.16, you can see the changes made at lines 148 and 202, so, shouldn't everyone that got this update being seeing these errors? I'm seeing them, too, and what changed was the File-Copy-Recursive upgrade.

The diff's at those lines between the 0.17 and 0.16 versions of Recursive.pm

148,150c148,150
<       opendir my $pth_dh, $str or return;
<       my @files = grep( $_ ne '.' && $_ ne '..', readdir($pth_dh));
<       closedir $pth_dh;
---
>       opendir DIRH, $str or return;
>       my @files = grep( $_ ne "." && $_ ne "..", readdir(DIRH));
>       closedir DIRH;
202,203c202,203
<    opendir my $pth_dh, $pth or return;
<    for(grep !/^\.+$/, readdir $pth_dh) {
---
>    opendir PTH, $pth or return;
>    for(grep !/^\.+$/, readdir PTH) {

It must be the extra "my" after the opendir commands on lines 148 and 202.

[demomen]

I'm seeing this error in
CentOS 3.6 x86_64 - 10.8.1-R113

[lankyb]

fixed by re-installing perl:

wget http://layer1.cpanel.net/perl587installer.tar.gz
tar xfz perl587installer.tar.gz
cd perl*
./install


/scripts/upcp
cd
rm -Rf perl* 

Had the same problem, and this fix worked.

Thank-you arhs

[cjscott69]

It must be the extra "my" after the opendir commands on lines 148 and 202.

I'm not a perl expert, but it looks like the fix would be to put parentheses around

$pth_dh, $str

on both lines. I've contacted the author of this module to see if that would do it.

[cjscott69]

I received a reply from the module author and he said opendir my $pth_dh, $str or return;
works on newer perls and is effective due to the lower precedence of "or" vs "||" but that 5.8.1 wants the parens. He uploaded 0.18 to CPAN and asked for feedback.

If anyone has a chance to test this today, please post the results. Otherwise, I'll see if I can test it tomorrow.

[kilroy]

I had the problem also and installing Perl 5.8.7 seems to have worked for me too.

I was using Perl 5.8.3.

The only problem is now I can't receive any email. Anyone have any ideas?

[simplestar]

I received a reply from the module author and he said opendir my $pth_dh, $str or return;
works on newer perls and is effective due to the lower precedence of "or" vs "||" but that 5.8.1 wants the parens. He uploaded 0.18 to CPAN and asked for feedback.

If anyone has a chance to test this today, please post the results. Otherwise, I'll see if I can test it tomorrow.

I did an update late last night and got the Perl errors above for Edge version.

[demomen]

fixed by re-installing perl:

wget http://layer1.cpanel.net/perl587installer.tar.gz
tar xfz perl587installer.tar.gz
cd perl*
./install


/scripts/upcp
cd
rm -Rf perl* 

Tried that but still is giving out the error

Parentheses missing around "my" list at
/usr/lib/perl5/site_perl/5.8.1/File/Copy/Recursive.pm line 148.
Parentheses missing around "my" list at
/usr/lib/perl5/site_perl/5.8.1/File/Copy/Recursive.pm line 202.


CentOS 3.6 x86_64 - 10.8.1-R113

[simplestar]

Ok, ran update for Edge again and still got the errors. I'd like to do what Arhs' suggested, but quite frankly, I'd also like to keep all those mail issues behind me. So, is anyone else faced with mail problems OR is cPanel working on this?

[simplestar]

I updated the Perls myself. So far looks okay but I'll give it a few days and post back if there are any problems or errors.

[fcitrolo]

I am getting that same error on two different cpanel servers one with FC2 running perl 5.8.3 the other centos 4.2 running perl 5.8.7 maybe the folks at cpanel could look into this?

[websnail.net]

Just to note... I checked this thread then looked at my latest upcp email report and the Cpanel update last night did an update of the File::Copy::Recursive module to version 0.18.

If the error continues tomorrow evening with the next upgrade I'll post again...

[angst7]

I was getting the same error with 5.8.0. I ran cpan -D File::Copy::Recursive and it reported that I was at version 0.17 and that 0.18 was available. Ran cpan -i File::Copy::Recursive and it updated to the 0.18. Then ran /scripts/upcp and the errors are gone. Looks fine now.