Change 18257 by jhi@lyta on 2002/12/07 22:38:49
Tiny doc tweak from Hugo for [perl #16783].
Affected files ...
.... //depot/maint-5.8/perl/pod/perlsec.pod#3 edit
Differences ...
==== //depot/maint-5.8/perl/pod/perlsec.pod#3 (text) ====
Index: perl/pod/perlsec.pod
--- perl/pod/perlsec.pod#2~18080~ Sun Nov 3 21:23:04 2002
+++ perl/pod/perlsec.pod Sat Dec 7 14:38:49 2002
@@ -164,7 +164,7 @@
if ($data =~ /^([-\@\w.]+)$/) {
$data = $1; # $data now untainted
} else {
- die "Bad data in $data"; # log this somewhere
+ die "Bad data in '$data'"; # log this somewhere
}
This is fairly secure because C</\w+/> doesn't normally match shell
End of Patch.
