Re: very simple tcpd replacement

[Kalle Olavi Niemitalo <tosi@ees2.oulu.fi>]

It won't work.  The filename of the real server is passed to tcpd
in argv[0] which is lost in "#!" execution.

PC486$ cat test.pl
#!/bin/perl
print "\$^X\t<$^X>\n";
print "\$0\t<$0>\n";
print "\$ARGV[0]\t<$ARGV[0]>\n";
print "\$ARGV[1]\t<$ARGV[1]>\n";
PC486$ (exec -a /some/server ./test.pl server-arg)
$^X	</bin/perl>
$0	</dev/fd/3>
$ARGV[0]	<server-arg>
$ARGV[1]	<>

Personally, I think tcpd abuses argv[0].  Can GNU fix it?