File: perl-bizarre-1

package info (click to toggle)
lintian 2.104.0
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 58,560 kB
  • sloc: perl: 36,857; javascript: 9,151; makefile: 3,888; sh: 3,204; ansic: 727; xml: 409; python: 65; java: 15; cpp: 9; tcl: 4; lisp: 3
file content (11 lines) | stat: -rw-r--r-- 519 bytes parent folder | download | duplicates (125) 
1
2
3
4
5
6
7
8
9
10
11
 
#! /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

# The above was actually seen in the wild and stresses the
# script_is_evil_and_wrong test.