Как я могу обойти 'умереть' вызов в библиотеке Perl, которую я не могу изменить?

Это захватывает $SIG{__DIE__}? Если это делает, то это более локально, чем Вы. Но существует пара стратегий:

• можно вызвать его пакет и , переопределение умирает:

  package Library::Dumb::Dyer;
  use subs 'die';
  sub die {
      my ( $package, $file, $line ) = caller();
      unless ( $decider->decide( $file, $package, $line ) eq 'DUMB' ) {
          say "It's a good death.";
          die @_;
     }
  } 
  

• В противном случае может прерывание это. (ищите $SIG на странице, скидка с цены не обрабатывает полную ссылку.)

  my $old_die_handler = $SIG{__DIE__};
  sub _death_handler { 
      my ( $package, $file, $line ) = caller();
      unless ( $decider->decide( $file, $package, $line ) eq 'DUMB DIE' ) {
          say "It's a good death.";
          goto &$old_die_handler;
      }
  }
  $SIG{__DIE__} = \&_death_handler;
  

• Вам, возможно, придется просканировать библиотеку, находить sub что это всегда вызовы и использование что загрузить Ваш $SIG обработчик путем переопределения that.

  my $dumb_package_do_something_dumb = \&Dumb::do_something_dumb;
  *Dumb::do_something_dumb = sub { 
      $SIG{__DIE__} = ...
      goto &$dumb_package_do_something_dumb;
  };
  

• Или переопределение встроенное, что это всегда вызовы...

  package Dumb; 
  use subs 'chdir';
  sub chdir { 
      $SIG{__DIE__} = ...
      CORE::chdir @_;
  };
  

• , Если все остальное перестало работать, можно хлестать глаза лошади с этим:

  package CORE::GLOBAL;
  use subs 'die';
  
  sub die { 
      ... 
      CORE::die @_;
  }
  

Это переопределит , умирают глобально, единственный способ, которым можно возвратиться die, состоит в том, чтобы обратиться к нему как CORE::die.

Некоторая комбинация этого будет работать.

Хотя изменение умирает , чтобы не умирать, имеет определенное решение, как показано в других ответах, в целом вы всегда можете переопределить подпрограммы в других пакетах. Вы не изменяете оригинальный источник вообще.

Во-первых, загрузите оригинальную упаковку, чтобы получить все оригинальные определения. Как только оригинал на месте, вы можете переопределить проблемный подпрограмм:

 BEGIN {
      use Original::Lib;

      no warnings 'redefine';

      sub Original::Lib::some_sub { ... }
      }

Вы можете даже вырезать и вставить оригинальное определение и настраивать то, что вам нужно. Это не отличное решение, но если вы не можете изменить исходный источник (или хотите попробовать что-то, прежде чем изменить оригинал), он может работать.

Кроме того, вы можете скопировать исходный файл исходного сигнала в отдельный каталог для вашего приложения. Поскольку вы управляете этим каталогом, вы можете редактировать в него файлы. Вы измените эту копию и загрузите его, добавив этот каталог на путь поиска модуля PERL:

use lib qw(/that/new/directory);
use Original::Lib;  # should find the one in /that/new/directory

Ваша копия палочки, даже если кто-то обновляет оригинальный модуль (хотя вы можете объединить изменения).

Я говорю об этом совсем немного в овладении Perl , где я показываю некоторые другие методы, чтобы сделать такую ​​вещь. Хитрость - не сломать вещи еще больше. Как вы не ломаете, вещи зависит от того, что вы делаете.