Searched refs:copy1 (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dinteger.t127 my $copy1 = my $copy2 = my $copy0 = $number;
142 # my $eq = do {use integer; $copy_s1 == $copy1} && $copy_s1 == $copy1;
150 # $eq = && (($copy_s1 <=> 0) == ($copy1 <=> 0));
156 # my $bit = ok (($copy_s1 ^ $copy1) == 0, "$process $copy1 (bitpattern)");
162 my $bit = ok (($copy_s3 ^ $copy1) == 0, "$process $copy1 (bitpattern)");
167 # if $[ < 5.005_56 and $copy1 > $max_iv;
169 "$process $copy1 (sig
[all...]

Completed in 22 milliseconds