Как я могу подавить предупреждения, генерируемые Perl в PDF :: Reuse?

Question

Есть ли способ подавления предупреждений и сообщений об ошибках в PDF :: Повторное использование ? (Мне не нужны предупреждения ... если эта часть сценария не работает для какого-либо конкретного 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-файлов плохо сформирован?