Help for this page

Select Code to Download

Select or download this

SV * get_problem_val(void) {
 return newSVnv(1e-298L);
}

Select or download this

#!perl -l
use warnings;
...
print "Different values" if 1e-298 != get_problem_val();
print scalar reverse unpack "b64", pack "D", 1e-298;
print scalar reverse unpack "b64", pack "D", get_problem_val();