This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH mg.c gv.c and others] ${^TAINT}
authorRonald J. Kimball <rjk@linguist.dartmouth.edu>
Mon, 8 Oct 2001 22:18:23 +0000 (18:18 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 9 Oct 2001 01:23:08 +0000 (01:23 +0000)
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' );