view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.7   Feb 21 2010
      * Improved Makefile.PL to check more deeply for the presence 
        and completeness of the mm library, to work around an Unknown 
        test result on one CPAN tester's system.
      * Improved C compiler testing in Makefile.PL to deal with 
        compound names like 'ccache cc'. 
      * Corrected two method names in .pod docs from 'mm[a]_hash_' to 
        'mm[a]_array_'.

0.6   Nov 23 2009
      * Added NaN filter to random DOUBLE generation in 04_fixedArray.t.
      * Improved reliability/consistency of 09_lock.t operation by 
        ** reworking delays/timeouts for slow/heavily-loaded systems,
        ** using a local copy of the global variable, and 
        ** always checking the expected value of the local copy, 
           as a condition for setting the next global value.

0.59009 Nov 19 2009
      * Reworked test 09_lock.t to try to eliminate a FAIL on a CPAN 
        tester's slow system.
      * Reworked optimization selection in Makefile.PL to be more 
        compatible with various toolsets.
      * Eliminated error messages when NaN or inf values are stored 
        in DOUBLE_ARRAYs.  Random number generation in test 
        04_fixedArray.t will occasionally produce NaNs and infs.

0.59007 Nov 17 2009
      * Modified Makefile.PL to work around some problems with the 
        'inline' keyword under the Sun C compiler.
      * Built a Perl 5.6.2 with 64-bit integers and worked thru test 
        problems using it.
      * Improved test 04_fixedArray to test option MM_CSTRING as well 
        as MM_FIXED_REC.
      * Updated Makefile.PL prerequisites, abstract, author.
      * Added test for .pod file.

t/04_fixedArray.t  view on Meta::CPAN

    return $ret;
}

sub randVar {
    my ($x, $len);
    if ($type == MM_INT_ARRAY) {
        return unpack('i', randStr($IVSIZE));
    } elsif ($type == MM_UINT_ARRAY) {
        return unpack('I', randStr($IVSIZE));
    } elsif ($type == MM_DOUBLE_ARRAY) {
        # eliminate NaN's that random number generation will yield
        do {$x = unpack('d', randStr($NVSIZE))} until ($x == $x);
        return $x;
    } elsif ($option==MM_CSTRING) {
        # C string mode
        $len = int(rand $var_size_bytes+1);
        $x = '';
        while ($len--) {$x .= chr(int(rand 255)+1)} # no NULs
        return $x;
    } else {
        return randStr($var_size_bytes);