From: Ronald J. Kimball <rjk@linguist.dartmouth.edu>
Date: Mon, 8 Oct 2001 22:18:23 +0000 (-0400)
Subject: Re: [PATCH mg.c gv.c and others] ${^TAINT}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c212f17ff77261a4792bfbd46a1471e8c17417e0;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH mg.c gv.c and others] ${^TAINT}
Message-ID: <20011008221823.A413700@linguist.thayer.dartmouth.edu>

p4raw-id: //depot/perl@12370
---

diff --git a/pod/perlvar.pod b/pod/perlvar.pod
index aec8215..bcd09fd 100644
--- a/pod/perlvar.pod
+++ b/pod/perlvar.pod
@@ -1041,7 +1041,7 @@ and B<-C> filetests are based on this value.
 
 =item ${^TAINT}
 
-Reflects if taint mode is on or off (ie. if the program was run with
+Reflects if taint mode is on or off (i.e. if the program was run with
 B<-T> or not).  True for on, false for off.
 
 =item $PERL_VERSION
diff --git a/t/op/taint.t b/t/op/taint.t
index d010afe..4e75c54 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -904,5 +904,5 @@ ok( ${^TAINT},  '$^TAINT is on' );
 eval { ${^TAINT} = 0 };
 ok( ${^TAINT},  '$^TAINT is not assignable' );
 ok( $@ =~ /^Modification of a read-only value attempted/,
-                                'Assigning to taint pukes properly' );
+                                'Assigning to ${^TAINT} fails' );