X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/9f59e7b75435e82578bc66328032e0d3510c5690..0ce1fd1e8663e8d7c95b53af17d55aba782c26de:/eg/plpinfo.plp?ds=sidebyside
diff --git a/eg/plpinfo.plp b/eg/plpinfo.plp
index f25dc76..e22ca84 100644
--- a/eg/plpinfo.plp
+++ b/eg/plpinfo.plp
@@ -58,7 +58,7 @@ printf "
%s | %s |
\n", @$_ for (
<:
s/(?<=,)//g for values %ENV; # allow breaks at commas (HTTP_ACCEPT*)
printf("%s | %s |
\n",
- $_, defined $ENV{$_} ? $ENV{$_} : "no value"
+ $_, defined $ENV{$_} ? EscapeHTML($ENV{$_}) : "no value"
) for sort keys %ENV;
:>
@@ -68,7 +68,7 @@ printf("%s | %s |
\n",
<:
for my $var (qw[ get post cookies header ]) {
printf("%s{'%s'} | %s |
\n",
- $var, $_, defined $$var{$_} ? $$var{$_} : "no value"
+ $var, $_, defined $$var{$_} ? EscapeHTML($$var{$_}) : "no value"
) for sort keys %$var;
}
:>