From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <yz@altlinux.ru>
Date: Fri, 25 Feb 2005 14:15:52 +0300
From: Yura Zotov <yz@altlinux.ru>
To: Sisyphus List <sisyphus@altlinux.ru>
Message-ID: <20050225111552.GB24022@vezyolka.homeip.net>
Mail-Followup-To: Sisyphus List <sisyphus@altlinux.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
User-Agent: Mutt/1.5.8+cvs20050213i
Subject: [sisyphus] tetex-3.0:
	=?koi8-r?b?0MXSzCDXztXU0skgc2hlbGwt08vSydDUwS4uLg==?=
X-BeenThere: sisyphus@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: ALT Linux Sisyphus discussion list <sisyphus@altlinux.ru>
List-Id: ALT Linux Sisyphus discussion list <sisyphus.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/sisyphus>
List-Post: <mailto:sisyphus@altlinux.ru>
List-Help: <mailto:sisyphus-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Fri, 25 Feb 2005 11:15:54 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/20050225111552.GB24022@vezyolka.homeip.net/>
List-Archive: <http://lore.altlinux.org/sisyphus/>

Есть в новом 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
	

Подскажите, пожалуйста, как с этим бороться. Правильно ли я
понимаю, что это из-за матрёшки с шеллом и перлом?

Заранее спасибо за помощь.

--
Юрий А. Зотов