В оригинале было

return $dbh->do( $query ) or die "Couldn't execute '$query': ". $dbh->errstr;

Если не do, то до ретурна дело не должно дойти

Или таки надо or на || менять?

оно последнее? тогда можно просто return убрать?

Я собирал только пакеты , готовый проект лучше в докере переноси - сейчас дешевле быстрее , было еще решение от @vtivti

В докере не могу. :(

а что за решение от @vtivti?

Интересная штука. Спасибо, посмотрю.

Я уже думал свой велосипед делать: смотреть через installwatch какие файлы меняются (либо просто сравнивать каталог "до" и "после", и загонять эти файлы в .spec

Есть готовый сервис сбора пакетов, но он в докере.

А что за сервис? Сам сборщик я могу в докере запускать. А вот таргет только rpm`кой...

Свищу!

Недавно открыл для себя потрясающую возможность перла - менять в уже выполняющейся программе набор процедур, ну и прочих глобальных объектов через такую "фичу":

$novoproc = 'procedura1';
*{"::$novoproc"} = <<_END_;
код процедуры
_END_

# ну и потом вызываем эту процедуру уж:

&{ *{"::$novoproc"}};

Может показаться, что это бесполезная фича, но применение ей таки есть. Например:

&{ *{"::obrabotka_kataloga_$katalog"}};
# а значение $katalog получаем
# только после запуска программы

Да понятно, что можно и без этой фичи так:

if ( $katalog eq 'kat1' ) {
  ...
} elsif ( $katalog eq 'kat2' ) {
  ...
} и так далее;

Но бывает удобно такое разнести по процедурам, ну и в разным других задачках такая фичка небесполезна.

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

У “return” приоритет выше, чем у “or”
Эта конструкция работает как (return a(1)) or die
Вместо or используй ||

Тогда не подойдёт. Там deb собираются.

Так всё равно скажи. Принцип-то один и тот же? Или это закрытая разработка?

Вот за такое говно перл и не любят

Сраная магия, в которой сам автор через неделю не разберётся

а зачем <<_END_ и &{} когда можно просто = sub { как обычно } ?

warstone@dev:~$ perl -e 'sub qwe { print "Bingo!\n" } my $q = "qwe"; $q->()'
Bingo!