Re^8: rand() function on Windows systems (pure Perl)

[BrowserUk]

Hm. srand always returns 1 regardless of its argument on my system:

print srand( $_ ) for 1 .. 10;;
1
1
1
1
1
1
1
1
1
1

[bakiperl]

That's strange. I get the same result on my systems using old and new versions of Perl.

print srand( $_ )."\n" for 1 .. 10;;
1
2
3
4
5
6
7
8
9
10

[BrowserUk]

From the pod:

starting with Perl 5.14, it returns the seed.

. My default perl is still 5.10.1.