File: perl-bizarre-1

package info (click to toggle)
lintian 2.122.0
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 71,536 kB
  • sloc: perl: 45,882; javascript: 9,151; makefile: 4,061; sh: 3,040; ansic: 705; xml: 451; python: 91; java: 15; cpp: 9; tcl: 4; lisp: 3
file content (11 lines) | stat: -rw-r--r-- 519 bytes parent folder | download | duplicates (151) 
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.