[devel] find-requires для perl

[Alexey Tourbin]

On Fri, Feb 08, 2008 at 06:23:53PM +0300, Anton Farygin wrote:
> Словил на текущем Sisyphus:
> No config found; attempting to find mythbackend via UPnP.
> No backends found.  Please copy /usr/src/.mythtv/config.xml from 
> aworking MythTV installation instead.
> Compilation failed in require at 
> /usr/src/tmp/mythtv-buildroot/usr/bin/mythrename.pl line 22.
> BEGIN failed--compilation aborted at 
> /usr/src/tmp/mythtv-buildroot/usr/bin/mythrename.pl line 22.
> # /usr/src/tmp/mythtv-buildroot/usr/bin/mythrename.pl: deparse failed. 
> isPerl=0.030890515646368.
> 
> у нас find-requires для perl пытается выполнять код ?

Выполняются блоки BEGIN и директивы use.
Это аналогично режиму syntax check (-c).

$ perl -c -le 'BEGIN{print 1}'
1
-e syntax OK
$ 

> Как это можно обойти ?

Надо разбираться в каждом конкретном случае.
Вообще на стадии BEGIN не принято выполнять слишком много кода.

Привет.
----------- следующая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : отсутствует
Тип     : application/pgp-signature
Размер  : 197 байтов
Описание: отсутствует
Url     : http://lists.altlinux.org/pipermail/devel/attachments/20080218/b80c4cb5/attachment.bin