[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Re: Magic Headers in a2ping and other perl scripts



Sorry, you are right. The trick was that the ``package'' declaration has to be kept intact. Here is how to do it.

--- a2ping.pl.orig	2006-08-30 16:09:18.000000000 +0200
+++ a2ping.pl	2006-08-30 16:09:45.000000000 +0200
@@ -1,16 +1,12 @@
-#! /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;
+#! /usr/bin/perl -w
+package Htex::a2ping;
 # 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!
 #
 # !! Imp: merge back to a2ping.pa
 #
 package just; BEGIN{$INC{'just.pm'}='just.pm'}
 BEGIN{ $just::VERSION=2 }



Reply to: