git.maemo.org Git - maemian/blob - nokia-lintian/testset/scripts/perl-bizarre-1

   1 #! /bin/sh
   2 eval '(exit $?0)' && eval 'PERL_BADLANG=x;export PERL_BADLANG;: \
   3 ;exec perl -x -S -- "$0" ${1+"$@"};#'if 0;
   4 eval 'setenv PERL_BADLANG x;exec perl -x -S -- "$0" $argv:q;#'.q+
   5 #!perl -w
   6 package Htex::a2ping;  $0=~/(.*)/s;unshift@INC,'.';do($1);die$@if$@;__END__+if !1;
   7 # This Perl script was generated by JustLib2 at Wed Apr 23 09:14:13 2003.
   8 # Don't touch/remove any lines above; http://www.inf.bme.hu/~pts/justlib
   9
  10 # The above was actually seen in the wild and stresses the
  11 # script_is_evil_and_wrong test.