Re: magic headers
Norbert Preining <preining@logic.at> wrote:
> pdfcrop and thumbpdf:
> eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
> if 0;
> use strict;
> $^W=1; # turn warning on
> #
> # pdfcrop.pl
> ... perl code
>
>
> lintian: executable-not-elf-or-script
>
> AFAIR I tried to remove the magic headers and always ended up with
> *non-functional* rest. Especially the a2ping header made me go crazy.
thumbpdf works with:
--- bin/thumbpdf.pl.orig 2006-08-22 16:31:16.000000000 +0200
+++ bin/thumbpdf.pl 2006-08-22 16:36:37.000000000 +0200
@@ -1,8 +1,4 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q'
- if 0;
-use strict;
-$^W=1; # turn warning on
-#
+#!/usr/bin/perl -w
# thumbpdf.pl
#
# Copyright (C) 1999-2004 Heiko Oberdiek.
@@ -24,9 +20,11 @@
# This file "thumbpdf.pl" may be renamed to "thumbpdf"
# for installation purposes.
#
+use strict;
+
my $file = "thumbpdf.pl";
my $program = uc($&) if $file =~ /^\w+/;
-my $version = "3.7";
+my $version = "3.7a";
my $date = "2004/11/19";
my $author = "Heiko Oberdiek";
my $copyright = "Copyright (c) 1999-2004 by $author.";
@@ -140,6 +138,8 @@
# thumbpdf.pdf are now valid PDF objects (dictionaries).
# * Remove of extra '\n' before "endstream" that is added
# by pdfTeX 1.20a.
+# 2006/08/22 v3.7a
+# * use normal shebang line instead of the perl magic header
#
### program identification
However, since it's LPPL, we cannot simply distribute this. I guess
Heiko would not object giving us a permission. But I think it's easier
to create a wrapper.
Regards, Frank
--
Frank Küster
Single Molecule Spectroscopy, Protein Folding @ Inst. f. Biochemie, Univ. Zürich
Debian Developer (teTeX/TeXLive)
Reply to: