Existe-t-il un moyen de supprimer les messages d'erreur & dans PDF::Reuse? (je ne ai pas les mises en garde ... si cette partie du script échoue pour une pdf particulière alors son ok.) J'ai essayé ce qui suit, mais il ne semble pas fonctionner:Comment puis-je supprimer les avertissements émis par PDF :: Reuse de Perl?
eval {
local $SIG{ALRM} = sub {die "alarm\n"};
alarm 10;
{
local $SIG{__WARN__}=sub{};
use PDF::Reuse;
prFile($copyPdf);
prDoc( $file) ;
prEnd() or next;
}
alarm 0;
};
if ([email protected]) {
die unless [email protected] eq "alarm\n";
print "timed out\n";
}
Votre clause 'if' n'a aucun sens -' $ @' ne peut jamais être vrai et faux en même temps. – Ether
@Ether: en Perl, il ne faut jamais dire jamais. Les opérations de type ACME mises à part, j'ai * vu * des choses assez impensables se produire avec des gestionnaires d'exception qui réécrivaient '$ @' hors de vous. Mais je ne doute pas non plus que vous ayez parfaitement raison sur cette affaire. – tchrist
@tchrist: oui, normalement nous utilisons Try :: Tiny ces jours-ci pour éviter de nous inquiéter du "$ @ est défini mais pas vrai" et "$ @ vient de changer, oh noes!" problèmes. :) – Ether