Re: [PATCH mg.c gv.c and others] ${^TAINT}
Ronald J. Kimball [Mon, 8 Oct 2001 22:18:23 +0000 (18:18 -0400)]
Message-ID: <20011008221823.A413700@linguist.thayer.dartmouth.edu>

p4raw-id: //depot/perl@12370

pod/perlvar.pod
t/op/taint.t

index aec8215..bcd09fd 100644 (file)
@@ -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
index d010afe..4e75c54 100755 (executable)
@@ -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' );