diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-12-10 21:30:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-12-10 21:30:10 +0000 |
| commit | 3a2263fe90d1c0e6c8f9368f10e6672379a975a2 (patch) | |
| tree | f4ecc8075c4fe608fca0d50cea8273adb3179ea8 /pod/perlsec.pod | |
| parent | 05b465836ef698192f94eef4a60cd63313013848 (diff) | |
| download | perl-3a2263fe90d1c0e6c8f9368f10e6672379a975a2.tar.gz | |
Integrate from the maint-5.8/ branch :
changes 18219, 18236, 18242-3, 18247-8,
18253-5, 18257, 18273-6
p4raw-id: //depot/perl@18280
p4raw-branched: from //depot/maint-5.8/perl@18279 'branch in'
t/op/lc_user.t
p4raw-integrated: from //depot/maint-5.8/perl@18279 'copy in'
lib/File/Copy.pm (@17645..) lib/utf8_heavy.pl pod/perlsec.pod
(@18080..) hints/irix_6.sh (@18173..) t/uni/tr_utf8.t
(@18197..) pod/perlunicode.pod (@18242..) t/op/pat.t (@18248..)
t/op/split.t (@18274..) 'edit in' pod/perlguts.pod (@18242..)
'merge in' pp.c (@18126..) MANIFEST (@18234..)
p4raw-integrated: from //depot/maint-5.8/perl@18254 'merge in'
pod/perldiag.pod (@18234..)
Diffstat (limited to 'pod/perlsec.pod')
| -rw-r--r-- | pod/perlsec.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlsec.pod b/pod/perlsec.pod index 2e1fda3704..1c2dbd266d 100644 --- a/pod/perlsec.pod +++ b/pod/perlsec.pod @@ -164,7 +164,7 @@ or a dot. 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 |