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

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dinteger.t159 my $copy_s3 = eval $copy_s1;
160 die "Was supposed to have number $copy_s3, got error $@"
161 unless defined $copy_s3;
162 my $bit = ok (($copy_s3 ^ $copy1) == 0, "$process $copy1 (bitpattern)");

Completed in 14 milliseconds