do FILE генерирует исключение при проверке, существует ли файл

Question

У меня проблемы с пониманием того, почему следующий код генерирует ошибки.

У меня есть простой скрипт:

do_test.pl

use strict;
use warnings;

do 'test.pl';
warn 'error 1: ' . $@ if $@;
warn 'error 2: ' . $! if $!;

test.pl

use Path::Tiny;

path('anything')->exists;

Мне не совсем понятно, почему test.pl работает нормально, а do_test.pl выдает ошибку: error 2: No such file or directory

Это упрощенная версия моего кода.

Answer 1

$! имеет смысл только в том случае, если произошла ошибка, поэтому ваш код утверждает, что ошибка произошла, когда ничего не произошло.

Измените

use Path::Tiny;
path('anything')->exists;

на

use Path::Tiny;
path('anything')->exists;
1;

и измените

do 'test.pl';
warn 'error 1: ' . $@ if $@;
warn 'error 2: ' . $! if $!;

на

do('test.pl')
   or die($@ || $!);