Changeset 3413 for lang/perl/Archive-Lha/trunk/lib/Archive/Lha/Header/Level0.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/Header/Level0.pm (modified) (1 diff)

lang/perl/Archive-Lha/trunk/lib/Archive/Lha/Header/Level0.pm

@@ -22 +22 @@
   my $checksum  = ord( $bits[1] );
   my $checksum1 = ( sum( map { ord } @bits[2..$#bits] ) ) & CHAR_MAX;
-  croak "Header is broken: checksum $checksum/$checksum1"
+  croak "Header is broken: start:$start checksum $checksum/$checksum1"
     unless $checksum == $checksum1;