diff -ur tetex-src-3.0.orig05/texk/tetex/a2ping tetex-src-3.0/texk/tetex/a2ping

--- tetex-src-3.0.orig05/texk/tetex/a2ping	2005-02-26 04:48:41 +0300

+++ tetex-src-3.0/texk/tetex/a2ping	2005-02-26 02:34:16 +0300

@@ -1,9 +1,6 @@

-#! /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;  

+unshift@INC,'.';

 # 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

 #