"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

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)