CODE
Can't locate loadable object for module Encode in @INC (@INC contains: E:\hshome\frankie\twistedtoe.com\weblogs\extlib E:\hshome\frankie\twistedtoe.com\weblogs\lib C:/Perl/lib C:/Perl/site/lib .) at E:\hshome\frankie\twistedtoe.com\weblogs\lib/MT/FileMgr/Local.pm line 132 Compilation failed in require at E:\hshome\frankie\twistedtoe.com\weblogs\lib/MT/FileMgr/Local.pm line 132.
What the crap does that mean? Again. no major changes were made. Did my web host by chance mess something up? mt-check still says everything is ready to go.
Here's a look at local.pm
CODE
sub content_is_updated {
my $fmgr = shift;
my($file, $content) = @_;
return 1 unless -e $file;
## If the system has Digest::MD5, compare MD5 hashes; otherwise
## read in the file and compare the strings.
my $fh = gensym();
open $fh, $file or return 1;
if (eval { require Digest::MD5; 1 }) {
my $ctx = Digest::MD5->new;
$ctx->addfile($fh);
close $fh;
my $data;
if ($] >= 5.007003) {
## Line 132 below
require Encode;
$data = $$content;
Encode::_utf8_off($data);
} elsif ($] >= 5.006001) {
$data = pack 'C0A*', $$content;
} else {
$data = $$content;
}
return $ctx->digest ne Digest::MD5::md5($data);
} else {
my $data;
binmode $fh;
while (read $fh, my($chunk), 8192) {
$data .= $chunk;
}
close $fh;
return $$content ne $data;
}
}
my $fmgr = shift;
my($file, $content) = @_;
return 1 unless -e $file;
## If the system has Digest::MD5, compare MD5 hashes; otherwise
## read in the file and compare the strings.
my $fh = gensym();
open $fh, $file or return 1;
if (eval { require Digest::MD5; 1 }) {
my $ctx = Digest::MD5->new;
$ctx->addfile($fh);
close $fh;
my $data;
if ($] >= 5.007003) {
## Line 132 below
require Encode;
$data = $$content;
Encode::_utf8_off($data);
} elsif ($] >= 5.006001) {
$data = pack 'C0A*', $$content;
} else {
$data = $$content;
}
return $ctx->digest ne Digest::MD5::md5($data);
} else {
my $data;
binmode $fh;
while (read $fh, my($chunk), 8192) {
$data .= $chunk;
}
close $fh;
return $$content ne $data;
}
}
Here's a link to my server info.
My Server