Convert-Scalar/t/02_call.t

BEGIN { $| = 1; print "1..4\n"; }

use Convert::Scalar qw(:taint grow);

$b = "1234";

# difficult to test these

grow $b, 5000;  print "ok 1\n";
taint $b;       print "ok 2\n";
tainted $b;     print "ok 3\n";
untaint $b;     print "ok 4\n";


Revision:	1.1
Committed:	Thu Sep 27 18:32:25 2001 UTC (25 years ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-1_1, rel-1_11, rel-1_04, rel-1_12, HEAD
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	BEGIN { $\| = 1; print "1..4\n"; }
2
3			use Convert::Scalar qw(:taint grow);
4
5			$b = "1234";
6
7			# difficult to test these
8
9			grow $b, 5000; print "ok 1\n";
10			taint $b; print "ok 2\n";
11			tainted $b; print "ok 3\n";
12			untaint $b; print "ok 4\n";
13
14
15