Changeset 3413 for lang/perl/Archive-Lha/trunk/lib/Archive/Lha/Decode/LH0.pm

Timestamp:

12/21/07 18:32:34 (13 months ago)

Author:

charsbar

Message:

lang/perl/Archive-Lha: xs -> trunk

Files:

• lang/perl/Archive-Lha/trunk/lib/Archive/Lha/Decode/LH0.pm (modified) (3 diffs)

lang/perl/Archive-Lha/trunk/lib/Archive/Lha/Decode/LH0.pm

@@ -4 +4 @@
 use warnings;
 use Carp;
+use bytes;
 use Archive::Lha::Constants;
-use Archive::Lha::CRC;
+use Archive::Lha;
 
 sub new {
@@ -26 +27 @@
   my $self = shift;
 
+  my $crc   = 0;
   my $total = 0;
   my $size  = $self->{size};
-  my $crc   = Archive::Lha::CRC->new;
-
   while ( $total < $size ) {
     my $left = $size - $total;
@@ -35 +35 @@
     my $str = $self->{read}->( $length );
     $self->{write}->( $str );
-    $crc->add( $str );
+    $crc = Archive::Lha::crc16( $crc, $str, length($str) );
     $total += $length;
   }
-  croak "CRC mismatch" if $crc->value != $self->{crc16};
+  croak "CRC mismatch" if $crc != $self->{crc16};
+  return $crc;
 }