From: Rich Bowen <rbowen@apache.org>
Date: Wed, 9 May 2012 01:30:15 +0000 (+0000)
Subject: Encourage best practice, even though it's a trivial example.
X-Git-Tag: 2.5.0-alpha~6859
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=62ac0b88ed63fdd684fbef0fd9abae704ba85432;p=thirdparty%2Fapache%2Fhttpd.git

Encourage best practice, even though it's a trivial example.


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@1335882 13f79535-47bb-0310-9956-ffa450edef68
---

diff --git a/docs/cgi-examples/printenv b/docs/cgi-examples/printenv
index f815a7e5019..be74feaa82e 100644
--- a/docs/cgi-examples/printenv
+++ b/docs/cgi-examples/printenv
@@ -11,10 +11,12 @@
 ##
 ##  printenv -- demo CGI program which just prints its environment
 ##
+use strict;
+use warnings;
 
 print "Content-type: text/plain; charset=iso-8859-1\n\n";
-foreach $var (sort(keys(%ENV))) {
-    $val = $ENV{$var};
+foreach my $var (sort(keys(%ENV))) {
+    my $val = $ENV{$var};
     $val =~ s|\n|\\n|g;
     $val =~ s|"|\\"|g;
     print "${var}=\"${val}\"\n";