Module::Reload->check;
clear_module_exists();
my $mh = Zymonic::Decryptor::Message->new(
xmldef => { class => $in->{messagetype} },
zname => $in->{messagetype},
decryptor_server => $Zymonic::ZDECRYPTOR{$Zymonic::system},
);
my $response = $mh->respond($in);
####
eval {
eval "require $module";
die $@ if $@;
$MODULE_EXISTS->{$module} = 'true';
} or do
{
my $err = $@;
if ( $err =~ /Can't locate/ )
{
$MODULE_EXISTS->{$module} = '';
}
else
{
rethrow_exception($err);
}
};
####
GENERIC Perl Died: Attempt to reload Zymonic/Decryptor/Message/symmetrex_contact.pm aborted.
Compilation failed in require at (eval 1073) line 2, <GEN20> line 132.
####
[Tue Feb 14 15:44:05] alex@zq2 ~ $ perl -c /usr/local/lib64/perl5/5.22.3/Zymonic/Decryptor/Message/symmetrex_contact.pm
/usr/local/lib64/perl5/5.22.3/Zymonic/Decryptor/Message/symmetrex_contact.pm syntax OK
[Tue Feb 14 15:46:38] alex@zq2 ~ $ perl -e 'use Zymonic::Decryptor::Message; my $tmp = Zymonic::Decryptor::Message->new( xmldef => { class => 'symmetrex_contact' }, zname => 'symmetrex_contact' ); print ref($tmp);'
Zymonic::Decryptor::Message::symmetrex_contact
####
GENERIC Perl Died: Attempt to reload Zymonic/Decryptor/Message/symmetrex_contact.pm aborted.
Compilation failed in require at (eval 1073) line 2, <GEN20> line 132.