cleaner perl printenv

/usr/share/doc/apache2-doc/cgi-examples/printenv:

  print "Content-type: text/plain; charset=iso-8859-1\n\n";

charset assumptions?

But mainly, this can be simplified to:

for (sort keys %ENV) {

$val = $ENV{$_};
$val =~ s|\n|\\n|g;
$val =~ s|"|\\"|g;

    print "$_=\"${val}\"\n";
}

-- 
To UNSUBSCRIBE, email to debian-apache-REQUEST@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmaster@lists.debian.org