X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=configpm;h=2994787272f14a569d520cff5911837421733214;hb=8908e76d53bb0a0d1093b7e53a5526fcb8c4098d;hp=193a8a7032bc41aa3f88a488b5547d6d18edd0e6;hpb=46f3656755f4dcd943e54fd6c5ad2f077d5ce681;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/configpm b/configpm
index 193a8a7..2994787 100755
--- 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;