[sisyphus] tetex-3.0: перл внутри shell-скрипта...

[sisyphus] tetex-3.0: перл внутри shell-скрипта...

[Yura Zotov]

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

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

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

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

Re: [sisyphus] tetex-3.0: перл внутри shell-скрипта...

[Dmitry V. Levin]

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

On Fri, Feb 25, 2005 at 02:15:52PM +0300, Yura Zotov wrote:
> Подскажите, пожалуйста, как с этим бороться. Правильно ли я
> понимаю, что это из-за матрёшки с шеллом и перлом?

Это shell-скрипт, который запускает себя как perl-код.
Надо сделать из него просто нормальный perl-скрипт.


-- 
ldv

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