Initializing Perl's rand

[Richard Cottrill]

> -----Original Message-----
> From: linux-admin at lists.samba.org [mailto:linux-admin at lists.samba.org]On
> Behalf Of Patrick Cole
> Sent: Monday, June 24, 2002 5:08 PM
> To: Michael James
> Cc: linux at lists.samba.org
> Subject: Re: Initializing Perl's rand
<snip>
> >  so I don't want to to to unixy a thing and read /dev/urandom
<snip>
> srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`);

This looks fairly unixy to me... I wouldn't expect this to run on even a
windows system, let alone a (Classic) Mac.

Richard