Почему оценка Perl короткого замыкания приводит к проверке значения?

Question

Я не понимаю, почему следующее:

my $err = undef;

while(1){
  if($err && ($err->code == 502)) {
    [...]
  }
  [...]
  eval {...}
  $err = $@;
}

приводит к Can't call method "code" on an undefined value at ./filename.pl line 74. в Perl v5.8.8. Другими словами: почему Perl выполняет второе логическое выражение, даже если конструкция OP1 && OP2 не может стать истинной, поскольку первый операнд имеет значение false (undef).

даже более подробная версия if( (defined $err) && ($err->code == 502)) дает тот же результат.

Заранее спасибо:)

Answer 1

Если это не так, как вы говорите, эта версия Perl или ваша сборка perl содержат ошибки, если вы получаете такое поведение из этого кода.Вероятно, ни то, ни другое.

Но это не может быть неопределенным.Имейте в виду, что ошибка может не прийти с первого прохода цикла.$err может содержать объект с ошибочными перегруженными операторами (например, несовместимые логические и строковые перегрузки).Что показывает следующее?

use Devel::Peek;
Dump($err);

Answer 2

Для информации, когда я запускаю ваш код следующим образом на интерпретаторе Perl 5.10.1, я вообще не получаю сообщения об ошибках.(Это на самом деле больше комментарий, чем ответ, только он не помещается в столбце комментариев. Он не нуждается в голосовании.)

#!/usr/bin/perl
use warnings;
use strict;
use integer;

my $err = undef;

while(1){
  if($err && ($err->code == 502)) {
    warn;
  }
  eval {1};
  $err = $@;
}

Answer 3

Причина, по которой $ err ($ @), очевидно, не была undef после eval{}, заключалась в том, что порожденная функция в eval возвращала ошибку из-за своей неспособности читать из файла, который не был перехваченпо окружающему коду: (

Спасибо @ikegami за предложение, я все-таки получил трассировку, используя Dump.

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