如何抑制Perl的PDF :: Reuse发出的警告？

Question

有没有办法抑制警告＆amp; PDF::Reuse中的错误消息？ （我不需要警告......如果脚本的这一部分因任何特定的pdf而失败，那么就可以了。） 我已经尝试了以下但它似乎不起作用：

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 ($@) {
die unless $@ eq "alarm\n";
print "timed out\n";
}

Answer 1

你看到了什么警告？

我尝试了上面的脚本，其中包含一个PDF，我没有错误或警告。 perl 5.8.8，PDF ::重用0.35。

您的某个PDF格式错误的问题是什么？