[PATCH] old packfile patch

[Jason Gloudon]

The disassembler isn't happy at the moment, this patch appears to fix 
the problem it has with the bytecode header.

Index: lib/Parrot/PackFile.pm
===================================================================
RCS file: /home/perlcvs/parrot/lib/Parrot/PackFile.pm,v
retrieving revision 1.15
diff -p -r1.15 PackFile.pm
*** lib/Parrot/PackFile.pm      15 May 2002 04:33:29 -0000      1.15
--- lib/Parrot/PackFile.pm      20 May 2002 16:14:03 -0000
*************** sub unpack
*** 187,206 ****
    $self->{MINOR} = shift_byte($string);
    $self->{FLAGS} = shift_byte($string);
    $self->{FLOATTYPE} = shift_byte($string);
! 
!   # Unused fields 
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
! 
!   $string = substr($string, 8);
  
    my $magic = shift_op($string);
  
--- 187,193 ----
    $self->{MINOR} = shift_byte($string);
    $self->{FLAGS} = shift_byte($string);
    $self->{FLOATTYPE} = shift_byte($string);
!   $string = substr($string, 10);
  
    my $magic = shift_op($string);
  
-- 
Jason

Index: lib/Parrot/PackFile.pm
===================================================================
RCS file: /home/perlcvs/parrot/lib/Parrot/PackFile.pm,v
retrieving revision 1.15
diff -p -r1.15 PackFile.pm
*** lib/Parrot/PackFile.pm      15 May 2002 04:33:29 -0000      1.15
--- lib/Parrot/PackFile.pm      20 May 2002 16:14:03 -0000
*************** sub unpack
*** 187,206 ****
    $self->{MINOR} = shift_byte($string);
    $self->{FLAGS} = shift_byte($string);
    $self->{FLOATTYPE} = shift_byte($string);
! 
!   # Unused fields 
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
!   shift_byte($string);
! 
!   $string = substr($string, 8);
  
    my $magic = shift_op($string);
  
--- 187,193 ----
    $self->{MINOR} = shift_byte($string);
    $self->{FLAGS} = shift_byte($string);
    $self->{FLOATTYPE} = shift_byte($string);
!   $string = substr($string, 10);
  
    my $magic = shift_op($string);