[PATCH assemble.pl] Fix binary values in bytecode

[chromatic]

In article <[EMAIL PROTECTED]>, "Gregor N.
Purdy" <[EMAIL PROTECTED]> wrote:

> Hmmm... I just tested on a perl 5.005_02 platform and got the following (my
> tests before committing were on 5.6.1). Looks like some trouble with
> Test::More, and possibly with other stuff.

Patching assemble.pl as follows fixed it on Perl 5.5.3.  It appears to work
correctly with bleadperl as well.  All tests pass now, at least on my Linux box.

-- c

--- assemble.pl 2001/09/26 18:30:43     1.47
+++ assemble.pl 2001/09/27 03:33:11
@@ -616,7 +616,14 @@
       $args[$_] =~ s/[\[\]]//g;
     }
     else {
-      $args[$_] = oct($args[$_]) if($args[$_]=~/^0[xb]?[0-9a-f]*$/);
+               if($args[$_]=~/^0([xb])?([0-9a-f]*)$/ and $1) {
+                       if ($1 eq 'b') {
+                               my $len = length($2);
+                               $args[$_] = unpack("N", pack("B32", substr("0" x 32 
+.$2, -32)));
+                       } elsif ($1 eq 'x') {
+                               $args[$_] = oct($args[$_]);
+                       }
+               }
     }
     $pc += sizeof($rtype);
     $bytecode .= pack_arg($rtype, $args[$_]);