On 24 Feb 2003 at 10:02, Simon Wistow wrote:

>    use Config;
> 
>    if ($Config{'byteorder' == 1234) {
>        return $LITTLE_ENDIAN;
>    } elsif ($Config{'byteorder' == 4321) {
>        return $BIG_ENDIAN;
>    } else {
>        carp "Unsupported architecture (probably a Cray or weird
>               order)\n";
>    }

On newer Perls you get 12345678 or 87654321 if you build with 
use64bitint IIRC.

Cheers,
Philip
-- 
Philip Newton <[EMAIL PROTECTED]>


Reply via email to