Page Index Toggle Pages: 1
Topic Tools
Normal Topic Perl 5.12 .. 5.16 Patches for ModuleChecker.pl Backup.pl (Read 1,661 times)
JonB
YaBB Administrator
YaBB Next Team
Operations Team
Beta Testers
Support Team
*****
Offline



Posts: 3,818
Location: Land of the Blazing Sun!

YaBB 2.6.0
Perl 5.12 .. 5.16 Patches for ModuleChecker.pl Backup.pl
Aug 21st, 2012 at 12:22am
Post Tools
The syntax is the same fix: the qw() calls need to be parenthesized. The Exact search text is different as the arguments are different.

in ./Admin/ModuleChecker.pl
search for:
Code (Perl)
Select All
foreach $module qw(Encode Digest::MD5 Time::HiRes Time::Local File::Find CGI DBI DBD::mysql Net::SMTP Net::SMTP::TLS Compress::Zlib Compress::Bzip2 Archive::Tar Archive::Zip MIME::Lite LWP::UserAgent HTTP::Request::Common Crypt::SSLeay IO::Socket::INET Digest::HMAC_MD5 Carp bytes integer Socket6) { 



replace with
Code (Perl)
Select All
foreach $module (qw(Encode Digest::MD5 Time::HiRes Time::Local File::Find CGI DBI DBD::mysql Net::SMTP Net::SMTP::TLS Compress::Zlib Compress::Bzip2 Archive::Tar Archive::Zip MIME::Lite LWP::UserAgent HTTP::Request::Common Crypt::SSLeay IO::Socket::INET Digest::HMAC_MD5 Carp bytes integer Socket6) ){
 



---------------------------
That fixed YaBB 3.0 trunk as of this date - However perl.exe choked three times on ssleay.dll on Windows/XAMPP/Apache before displaying the ModuleCheck correctly.

error -

Quote:
Can't load 'C:/xampp/perl/vendor/lib/auto/Net/SSLeay/SSLeay.dll' for module Net::SSLeay: load_file:The specified module could not be found at C:/xampp/perl/lib/DynaLoader.pm line 190. at C:/xampp/perl/vendor/lib/Net/SMTP/TLS.pm line 89. Compilation failed in require at C:/xampp/perl/vendor/lib/Net/SMTP/TLS.pm line 89. BEGIN failed--compilation aborted at C:/xampp/perl/vendor/lib/Net/SMTP/TLS.pm line 89. Compilation failed in require at (eval 22) line 2.


I will leave this for the moment - until I test on Linux and/or ActiveStates Perl.

now checking ./Sources/Backup.pl it appears unchanged - these are the fixes copied from Dandello's 1st post -

In .Admin/Backup.pl Find:
Code
Select All
foreach $module qw(Compress::Zlib Compress::Bzip2) {
 



Replace with:
Code
Select All
foreach my $module (qw(Compress::Zlib Compress::Bzip2) ){
 



Find
Code
Select All
foreach $command qw(/bin/gzip /bin/bzip2) {
 



Replace with:
Code
Select All
foreach my $command (qw(/bin/gzip /bin/bzip2)) {
 



Find:
Code
Select All
foreach $module qw(Archive::Tar Archive::Zip) {
 



Replace with:
Code
Select All
foreach my $module (qw(Archive::Tar Archive::Zip) ){
 



Find:
Code
Select All
foreach my $path qw(src bo lan mem mes temp var html upld) {
 



Replace with:
Code
Select All
foreach my $path (qw(src bo lan mem mes temp var html upld)) {
 



Edited:
Backup now runs -

Good Luck
« Last Edit: Aug 21st, 2012 at 12:54am by JonB »  

I find your lack of faith disturbing.
Back to top
IP Logged
 
Page Index Toggle Pages: 1
Topic Tools
 
  « Board Index ‹ Board  ^Top