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 (22 years, 8 months 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 *
#	Content
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