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 aec8215753b0237824dee95a34e39b1b25bc333d..bcd09fdadb6bc2680aebeb3b9e27e6326efdd04a 100644 (file)
--- 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 d010afea9985ffe1fd5ad94c25f3a993f0940fc5..4e75c54d2668e1e4c546ad51ac6a7cb4ad7e24e8 100755 (executable)
--- 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' );