The byteorder code in #6671 was wrong.
Jarkko Hietaniemi [Fri, 18 Aug 2000 03:15:35 +0000 (03:15 +0000)]
p4raw-id: //depot/perl@6688

configpm

index 193a8a7..2994787 100755 (executable)
--- a/configpm
+++ b/configpm
@@ -134,8 +134,10 @@ sub FETCH {
         my $t = $Config{ivtype};
         my $s = $Config{ivsize};
         my $f = $t eq 'long' ? 'L!' : $s == 8 ? 'Q': 'I';
-        my $i = unpack($f, pack('C*', map { ord() } 1..$s));
         if ($s == 4 || $s == 8) {
+           my $i = 0;
+           foreach my $c (reverse(2..$s)) { $i |= ord($c); $i <<= 8 }
+           $i |= ord(1);
             $value = join('', unpack('a'x$s, pack($f, $i)));
         } else {
             $value = '?'x$s;