Hi,

As this is essentially a request for some testing to be done, I thought "Meditations" was probably the best place for it.
I'm not actively seeking wisdom with this post but, of course, receiving wisdom is always fine, even if it hasn't been requested ;-)

If you have a perl that you've built using a Microsoft Compiler, I'd be most interested to learn of any problems or failures involved in running:

cpan -i List::Uniqnum
[download]

In fact, feel free to provide feedback for any build of perl that you have.
The cpantesters smokers have been happily chewing on List-Uniqnum-0.04 for a couple of days, but there are very few Windows smokers out there.
And, AFAIK, none of those smokers employ Microsoft compilers.

Of course, Darwin and Solaris are probably also missing from those cpantesters systems - so join in with them, too .... or anything else that takes your fancy.

I released List::Uniqnum to test changes that I want to make to the dual-life module List::Util's uniqnum() function - in order to improve that function's portability.
A new release of List::Util (Scalar-List-Utils-1.54) hit cpan over the weekend. It still doesn't utilize the changes I was hoping would be included.
If you run cpan -i List::Util you'll probably find that it passes all tests and installs cleanly.

List-Util-1.54's uniqnum function actually works correctly on Linux, unless perl was built with -Duselongdouble or -Dusequadmath - in which case the test suite still passes, but only because it doesn't run tests that will reveal the problem.
1.54 works fine on Windows, too, but again only if perl's nvtype is double.
For it to work correctly on Windows if perl's ivtype is long long, it also requires that perl was built with __USE_MINGW_ANSI_STDIO, which only started happening wih the release of 5.26.0.
Thankfully, Strawberry Perl 5.26 onwards is built with __USE_MINGW_ANSI_STDIO defined.
Try cpan -i List::Util on a 64-bit-integer build of Strawberry perl-5.24.0 or earlier, and you'll see a test failure.

If you want to know what's failing with your particular installation of List::Util's uniqnum function, here is something you can run:

use Config; # for test 5
use strict;
use warnings;
use List::Util qw(uniqnum);
#use List::Uniqnum qw(uniqnum);

my $count;

# test 1 
if(1.4142135623730951 !=
   1.4142135623730954) {
  $count = uniqnum(1.4142135623730951,
                   1.4142135623730954);
  print "test 1 failed (returned $count)\n"
    unless $count == 2;
}

# test 2
if(10.770329614269008063 !=
   10.7703296142690080625) {
  $count = uniqnum(10.770329614269008063,
                   10.7703296142690080625);
  print "test 2 failed (returned $count)\n"
    unless $count == 2;
}

# test 3
if(1005.1022829201930645202916159776901 !=
   1005.10228292019306452029161597769015) {
  $count = uniqnum(1005.1022829201930645202916159776901,
                   1005.10228292019306452029161597769015);
  print "test 3 failed (returned $count)\n"
    unless $count == 2;
}

# test 4
$count = uniqnum(0, -0.0);
print "test 4 failed (returned $count)\n"
  unless $count == 1;

# test 5
if($Config{ivsize} == 8) {
  # These 2 (the first is an IV, the second is an NV)
  # both exactly represent the value 762939453127 * (2 ** 21)

  $count = uniqnum(100000000000262144, 1.00000000000262144e+17);

  print "test 5 failed (returned $count)\n"
    unless $count == 1;
}
[download]

It only announces failures. If there's no output, then everything is good.
If you install List::Uniqnum, you can then modify the script to test List::Uniqnum.
If you do that, and it produces some output, please let me know.

Cheers,
Rob

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.