r8874 - in /branches/upstream/libdigest-crc-perl/current: Changes README lib/Digest/CRC.pm t/crc.t

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Mon Nov  5 18:42:38 2007
New Revision: 8874

URL: http://svn.debian.org/wsvn/?sc=1&rev=8874
Log:
[svn-upgrade] Integrating new upstream version, libdigest-crc-perl (0.14)

Modified:
    branches/upstream/libdigest-crc-perl/current/Changes
    branches/upstream/libdigest-crc-perl/current/README
    branches/upstream/libdigest-crc-perl/current/lib/Digest/CRC.pm
    branches/upstream/libdigest-crc-perl/current/t/crc.t

Modified: branches/upstream/libdigest-crc-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-crc-perl/current/Changes?rev=8874&op=diff
==============================================================================
--- branches/upstream/libdigest-crc-perl/current/Changes (original)
+++ branches/upstream/libdigest-crc-perl/current/Changes Mon Nov  5 18:42:38 2007
@@ -37,3 +37,6 @@
 0.13  Sun Nov  4 11:22:54 2007
         - fixed tests
 
+0.14  Mon Nov  5 08:10:11 2007
+        - fixed __reflect error in non XS part
+

Modified: branches/upstream/libdigest-crc-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-crc-perl/current/README?rev=8874&op=diff
==============================================================================
--- branches/upstream/libdigest-crc-perl/current/README (original)
+++ branches/upstream/libdigest-crc-perl/current/README Mon Nov  5 18:42:38 2007
@@ -1,4 +1,4 @@
-Digest::CRC version 0.13
+Digest::CRC version 0.14
 ========================
 
 NAME
@@ -41,3 +41,9 @@
    make test
    make install
 
+COPYRIGHT AND LICENCE
+   CRC algorithm code taken from "A PAINLESS GUIDE TO CRC ERROR DETECTION
+   ALGORITHMS".
+
+   The author of this package disclaims all copyrights and releases it
+   into the public domain.

Modified: branches/upstream/libdigest-crc-perl/current/lib/Digest/CRC.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-crc-perl/current/lib/Digest/CRC.pm?rev=8874&op=diff
==============================================================================
--- branches/upstream/libdigest-crc-perl/current/lib/Digest/CRC.pm (original)
+++ branches/upstream/libdigest-crc-perl/current/lib/Digest/CRC.pm Mon Nov  5 18:42:38 2007
@@ -16,7 +16,7 @@
  crc32_hex crc32_base64
 );
 
-$VERSION    = '0.13';
+$VERSION    = '0.14';
 $XS_VERSION = $VERSION;
 $VERSION    = eval $VERSION;
 
@@ -85,7 +85,7 @@
 sub _crc {
   my ($message,$width,$init,$xorout,$refin,$refout,$tab) = @_;
   my $crc = $init;
-  $crc = __reflect($crc,$width) if $refin;
+  $crc = _reflect($crc,$width) if $refin;
   my $pos = -length $message;
   my $mask = 2**$width-1;
   while ($pos) {

Modified: branches/upstream/libdigest-crc-perl/current/t/crc.t
URL: http://svn.debian.org/wsvn/branches/upstream/libdigest-crc-perl/current/t/crc.t?rev=8874&op=diff
==============================================================================
--- branches/upstream/libdigest-crc-perl/current/t/crc.t (original)
+++ branches/upstream/libdigest-crc-perl/current/t/crc.t Mon Nov  5 18:42:38 2007
@@ -45,17 +45,17 @@
 $ctx->addfile(F);
 close(F);
 my $y = $ctx->digest;
-ok($y == 1413438101, 'OO crc32 with addfile '.$y); 
+ok($y == 2371909219, 'OO crc32 with addfile '.$y); 
 
 # start at offset >0 with previous checksum result
-$ctx = Digest::CRC->new(type=>"crc32",cont=>1,init=>1413438101); 
+$ctx = Digest::CRC->new(type=>"crc32",cont=>1,init=>460478609); 
 open(F,"<README")||die "Cannot open README";
 use Fcntl qw(:seek);
 seek(F,989,Fcntl::SEEK_SET);
 $ctx->addfile(F);
 close(F);
 $y = $ctx->digest;
-ok($y == 1413438101, 'OO crc32 with init and addfile '.$y); 
+ok($y == 2371909219, 'OO crc32 with init and addfile '.$y); 
 
 $ctx = Digest::CRC->new(type=>"crcccitt"); 
 $ctx->add($input);