Re: [perl #18257] Attempt to free unreferenced scalar (in 5 lines)

[p5sagit/p5-mst-13.2.git] / pod / perlsec.pod

diff --git a/pod/perlsec.pod b/pod/perlsec.pod
index 2e1fda3..1c2dbd2 100644 (file)
--- 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