[devel] Perl 5.18.1 breakage

[devel] Perl 5.18.1 breakage

[Vladimir Lettiev]

Пришёл довольно пухлый лог о сломанных пакетах.
Прежде всего можно игнорировать сообщения о

    Can't locate Class/Singleton.pm in @INC ...
    Can't locate parent.pm in @INC ...

Это ошибка в сборке perl-DateTime-TimeZone и я уже отправил исправленный
вариант.

Если в логе сборке есть сообщение о

    syntax error at ...  line ..., near " qw( ... ) "

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

    -   qw(foo bar baz)
    + ( qw(foo bar baz) )


-- 
Vladimir Lettiev aka crux ✉ theCrux@gmail.com

Re: [devel] Perl 5.18.1 breakage

[Dmitry V. Levin]

[-- Attachment #1: Type: text/plain, Size: 246 bytes --]

On Thu, Sep 12, 2013 at 02:42:21PM +0400, Vladimir Lettiev wrote:
> Пришёл довольно пухлый лог о сломанных пакетах.

Из того, что не упомянуто в отчете: из пакета vim-common-7.3.353-alt3
исчезло все содержимое /usr/share/man/.


-- 
ldv

[-- Attachment #2: Type: application/pgp-signature, Size: 198 bytes --]

Re: [devel] Perl 5.18.1 breakage

[Vladimir Lettiev]

On Thu, Sep 12, 2013 at 11:01:00PM +0400, Dmitry V. Levin wrote:
> On Thu, Sep 12, 2013 at 02:42:21PM +0400, Vladimir Lettiev wrote:
> > Пришёл довольно пухлый лог о сломанных пакетах.
> 
> Из того, что не упомянуто в отчете: из пакета vim-common-7.3.353-alt3
> исчезло все содержимое /usr/share/man/.

Это проблема в find-lang, возникла после этого коммита:
http://git.altlinux.org/gears/r/rpm.git?p=rpm.git;a=commitdiff;h=9e3d656706e79132b8b6a17dca613bb728d19197

Надо или откатить или поправить регулярки для man-страниц:

@@ -205,17 +205,17 @@
 		find "$TOPDIR" -type f |sed -e '
 s:'"$TOPDIR"'::
 s:^[^/].*::
-s:\(.*/share/man/'"$RLOCALE"'/[^/]\+/'"$PATTERN"'\.[0-9a-z]\+\)\(\.[^/]\+\)\?$:%lang(\2) \1*:
+s:\(.*/share/man/'"$RLOCALE"'.\+'"$PATTERN"'\.[0-9a-z]\+\)\(\.[^/]\+\)\?$:%lang(\2) \1*:
 s:^[^%].*::
-s:^%lang(en) ::
+s:^%lang(\(en\|man.*\)) ::
 /^$/d
 		'
 		find "$TOPDIR" -type l |sed -e '
 s:'"$TOPDIR"'::
 s:^[^/].*::
-s:\(.*/share/man/'"$RLOCALE"'/[^/]\+/'"$PATTERN"'\.[0-9a-z]\+\)\(\.[^/]\+\)\?$:%lang(\2) %attr(-,root,root) \1*:
+s:\(.*/share/man/'"$RLOCALE"'.\+'"$PATTERN"'\.[0-9a-z]\+\)\(\.[^/]\+\)\?$:%lang(\2) %attr(-,root,root) \1*:
 s:^[^%].*::
-s:^%lang(en) ::
+s:^%lang(\(en\|man.*\)) ::
 /^$/d
 		'
 	fi >> "$OUTFILE"


-- 
Vladimir Lettiev aka crux ✉ theCrux@gmail.com