"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "cpan/Scalar-List-Utils/t/tainted.t" between
perl-5.32.0-RC0.tar.xz and perl-5.32.0-RC1.tar.xz

About: Perl (Practical Extraction and Report Language) is a high-level, general-purpose, interpreted, dynamic programming language. Release candidate.

tainted.t  (perl-5.32.0-RC0.tar.xz)	:	tainted.t  (perl-5.32.0-RC1.tar.xz)
skipping to change at line 16		skipping to change at line 16
use Test::More tests => 5;		use Test::More tests => 5;
use Scalar::Util qw(tainted);		use Scalar::Util qw(tainted);
ok( !tainted(1), 'constant number');		ok( !tainted(1), 'constant number');
my $var = 2;		my $var = 2;
ok( !tainted($var), 'known variable');		ok( !tainted($var), 'known variable');
ok( tainted($^X), 'interpreter variable');		ok( tainted($^X), 'interpreter variable');
$var = $^X;		$var = $^X;
ok( tainted($var), 'copy of interpreter variable');		ok( tainted($var), 'copy of interpreter variable');
{		{
package Tainted;		package Tainted;
sub TIESCALAR { bless {} }		sub TIESCALAR { bless {} }
sub FETCH { $^X }		sub FETCH { $^X }
}		}
tie my $tiedvar, 'Tainted';		tie my $tiedvar, 'Tainted';
ok( tainted($tiedvar), 'for magic variables');		ok( tainted($tiedvar), 'for magic variables');
End of changes. 2 change blocks.
2 lines changed or deleted		2 lines changed or added

---