* [sisyphus] tetex-3.0: перл внутри shell-скрипта...
@ 2005-02-25 11:15 Yura Zotov
2005-02-25 12:20 ` Dmitry V. Levin
0 siblings, 1 reply; 2+ messages in thread
From: Yura Zotov @ 2005-02-25 11:15 UTC (permalink / raw)
To: Sisyphus List
Есть в новом 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
Подскажите, пожалуйста, как с этим бороться. Правильно ли я
понимаю, что это из-за матрёшки с шеллом и перлом?
Заранее спасибо за помощь.
--
Юрий А. Зотов
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: [sisyphus] tetex-3.0: перл внутри shell-скрипта...
2005-02-25 11:15 [sisyphus] tetex-3.0: перл внутри shell-скрипта Yura Zotov
@ 2005-02-25 12:20 ` Dmitry V. Levin
0 siblings, 0 replies; 2+ messages in thread
From: Dmitry V. Levin @ 2005-02-25 12:20 UTC (permalink / raw)
To: ALT Linux Sisyphus mailing list
[-- 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 --]
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2005-02-25 12:20 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-02-25 11:15 [sisyphus] tetex-3.0: перл внутри shell-скрипта Yura Zotov
2005-02-25 12:20 ` Dmitry V. Levin
ALT Linux Sisyphus discussions
This inbox may be cloned and mirrored by anyone:
git clone --mirror http://lore.altlinux.org/sisyphus/0 sisyphus/git/0.git
# If you have public-inbox 1.1+ installed, you may
# initialize and index your mirror using the following commands:
public-inbox-init -V2 sisyphus sisyphus/ http://lore.altlinux.org/sisyphus \
sisyphus@altlinux.ru sisyphus@altlinux.org sisyphus@lists.altlinux.org sisyphus@lists.altlinux.ru sisyphus@lists.altlinux.com sisyphus@linuxteam.iplabs.ru sisyphus@list.linux-os.ru
public-inbox-index sisyphus
Example config snippet for mirrors.
Newsgroup available over NNTP:
nntp://lore.altlinux.org/org.altlinux.lists.sisyphus
AGPL code for this site: git clone https://public-inbox.org/public-inbox.git