escape output

This commit is contained in:
Jamie Cameron
2020-05-09 16:57:31 -07:00
parent ef4b35f7ee
commit 329edd0988

View File

@ -219,7 +219,8 @@ foreach $pfile (@pfile) {
close(TAR);
if ($?) {
unlink(@pfile) if ($need_unlink);
&install_error(&text('download_etar', "<tt>$tar</tt>"));
&install_error(&text('download_etar',
"<tt>".&html_escape($tar)."</tt>"));
}
}
if (@dirs == 0 || $file{'Makefile.PL'}+$file{'Build.PL'} < @dirs) {