Re: [OT] perl guru help needed
Norbert Preining <preining@logic.at> wrote:
> Hi all!
>
> For getting the texlive packages into a clean lintian state,
> I need help in fixing the following perl header, since lintian moans
> that shell-script-fails-syntax-check:
>
> #! /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
>
> I can only say that it definitely works on a lot of systems, finds perl.
Yes, one of those magic perl headers. I guess lintian is just too dump
to understand the syntax. Either use an override, or file a bug against
lintian, or both. Not that I understand it, but the fact that it works
shows that lintian is wrong.
> What I tried is removing all the stuff before the perl -w and changing
> it to /usr/bin/perl -w, but this kicks the script into an endless loop.
> Strange.
Maybe because PERL_BADLANG is not set?
Regards, Frank
--
Frank Küster
Inst. f. Biochemie der Univ. Zürich
Debian Developer
Reply to: