Changeset 956

Show
Ignore:
Timestamp:
10/21/03 06:04:10
Author:
miyagawa
Message:

0.05

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Mac-Macbinary/trunk/Changes

    r35 r956  
    22 
    33$Id$ 
     4 
     50.05    * Fixed bug in extracting resource fork 
     6          (Thanks to Jorg Eschke <joerg@eschke.net>) 
    47 
    580.04    - Documented the "validate" attribute. 
  • Mac-Macbinary/trunk/Macbinary.pm

    r36 r956  
    33use strict; 
    44use vars qw($VERSION $AUTOLOAD); 
    5 $VERSION = '0.04'
     5$VERSION = 0.05
    66 
    77use Carp (); 
     
    2727    }); 
    2828    read $fh, $self->{data}, $self->header->dflen; 
     29 
     30    my $resourceoffset = 128 - (($self->header->dflen) % 128); 
     31    read $fh, my($tmp), $resourceoffset; 
    2932    read $fh, $self->{resource}, $self->header->rflen; 
    3033