[sisyphus] tetex-3.0: перл внутри shell-скрипта...
Yura Zotov
=?iso-8859-1?q?yz_=CE=C1_altlinux=2Eru?=
Пт Фев 25 14:15:52 MSK 2005
Есть в новом tetex скрипт /usr/bin/a2ping... Вот его начало:
#! /bin/sh
eval '(exit $?0)' && eval 'PERL_BADLANG=x;export PERL_BADLANG;: \
;exec perl -x -S -- "$0" ${1+"$@"};#'if 0;
eval 'setenv PERL_BADLANG x;exec perl -x -S -- "$0" $argv:q;#'.q+
#!perl -w
package Htex::a2ping; $0=~/(.*)/s;unshift на INC,'.';do($1);die$@if$@;__END__+if !1;
# This Perl script was generated by JustLib2 at Wed Apr 23 09:14:13 2003.
# Don't touch/remove any lines above; http://www.inf.bme.hu/~pts/justlib
#
# This program is free software, licensed under the GNU GPL, >=2.0.
# This software comes with absolutely NO WARRANTY. Use at your own risk!
#
package just; BEGIN{$INC{'just.pm'}='just.pm'}
BEGIN{ $just::VERSION=2 }
sub end(){1}
sub main(){}
BEGIN{$ INC{'strict.pm'}='strict.pm'} {
package strict;
use just;
# by pts на fazekas.hu at Wed Jan 10 12:42:08 CET 2001
require 5.002;
Далее до конце перл. rpm на него ругается
Finding Requires (using /usr/lib/rpm/find-requires)
Executing(Requires): /bin/sh -e
/home/yura/Documents/RPM/TMP/rpm-tmp.25919
+ umask 022
+ /bin/mkdir -p /home/yura/Documents/RPM/BUILD
+ cd /home/yura/Documents/RPM/BUILD
+ /usr/lib/rpm/find-requires
/home/yura/Documents/RPM/TMP/tetex-buildroot/usr/bin/a2ping: line 6: syntax error near unexpected token `.*'
/home/yura/Documents/RPM/TMP/tetex-buildroot/usr/bin/a2ping: line 6: `package Htex::a2ping; $0=~/(.*)/s;unshift на INC,'.
error: /bin/sh failed
error: Failed to find Requires
RPM build errors:
/bin/sh failed
Failed to find Requires
Подскажите, пожалуйста, как с этим бороться. Правильно ли я
понимаю, что это из-за матрёшки с шеллом и перлом?
Заранее спасибо за помощь.
--
Юрий А. Зотов
Подробная информация о списке рассылки Sisyphus