Hello community,

here is the log from the commit of package perl-Digest-CRC for openSUSE:Factory 
checked in at 2015-02-10 20:23:06
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Digest-CRC (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Digest-CRC.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Digest-CRC"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Digest-CRC/perl-Digest-CRC.changes  
2012-02-16 14:59:22.000000000 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Digest-CRC.new/perl-Digest-CRC.changes     
2015-02-10 20:23:07.000000000 +0100
@@ -1,0 +2,5 @@
+Mon Feb  9 09:16:47 UTC 2015 - opens...@dstoecker.de
+
+- update to version 0.20 bug-fix release
+
+-------------------------------------------------------------------

Old:
----
  Digest-CRC-0.18.tar.gz

New:
----
  Digest-CRC-0.20.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Digest-CRC.spec ++++++
--- /var/tmp/diff_new_pack.Ml1RZv/_old  2015-02-10 20:23:08.000000000 +0100
+++ /var/tmp/diff_new_pack.Ml1RZv/_new  2015-02-10 20:23:08.000000000 +0100
@@ -1,7 +1,7 @@
 #
 # spec file for package perl-Digest-CRC
 #
-# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2015 SUSE LINUX Products GmbH, Nuernberg, Germany.
 #
 # All modifications and additions to the file contributed by third parties
 # remain the property of their copyright owners, unless otherwise agreed
@@ -16,16 +16,14 @@
 #
 
 
-
 Name:           perl-Digest-CRC
-Version:        0.18
-Release:        1
-AutoReqProv:    on
-Group:          Development/Libraries/Perl
-License:        SUSE-Public-Domain
+Version:        0.20
+Release:        0
 Url:            http://search.cpan.org/dist/Digest-CRC/
 Summary:        Generic CRC functions for Perl
-Source:         Digest-CRC-%{version}.tar.gz
+License:        SUSE-Public-Domain
+Group:          Development/Libraries/Perl
+Source:         
http://search.cpan.org/CPAN/authors/id/O/OL/OLIMAUL/Digest-CRC-%{version}.tar.gz
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 %{perl_requires}
 BuildRequires:  perl

++++++ Digest-CRC-0.18.tar.gz -> Digest-CRC-0.20.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Digest-CRC-0.18/Build.PL new/Digest-CRC-0.20/Build.PL
--- old/Digest-CRC-0.18/Build.PL        2006-07-09 19:07:44.000000000 +0200
+++ new/Digest-CRC-0.20/Build.PL        1970-01-01 01:00:00.000000000 +0100
@@ -1,8 +0,0 @@
-use Module::Build;
-my $build = Module::Build->new
-   (
-      module_name => 'Digest::CRC',
-     license => 'perl',
-     PL_FILES => {},
-    );
-$build->create_build_script;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Digest-CRC-0.18/Changes new/Digest-CRC-0.20/Changes
--- old/Digest-CRC-0.18/Changes 2011-11-12 23:19:55.000000000 +0100
+++ new/Digest-CRC-0.20/Changes 2015-02-08 17:58:39.000000000 +0100
@@ -58,3 +58,10 @@
         - added convenience wrappers for 'cont', #70672
         - fixed few issues in xs code, #70674
         - added openpgparmor support, #72387
+
+0.19  Sun Feb  8 11:30:09 2015
+        - fixed issue with OO crc64, #101999
+        - remove Build.PL as it seems to have some issues with the XS support
+
+0.20  Sun Feb  8 16:45:13 2015
+          - removed debug code
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Digest-CRC-0.18/MANIFEST new/Digest-CRC-0.20/MANIFEST
--- old/Digest-CRC-0.18/MANIFEST        2006-07-09 19:07:44.000000000 +0200
+++ new/Digest-CRC-0.20/MANIFEST        2015-02-08 17:26:55.000000000 +0100
@@ -1,6 +1,5 @@
-Build.PL
-CRC.xs
 Changes
+CRC.xs
 MANIFEST
 META.yml
 Makefile.PL
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Digest-CRC-0.18/META.yml new/Digest-CRC-0.20/META.yml
--- old/Digest-CRC-0.18/META.yml        2007-10-31 20:33:28.000000000 +0100
+++ new/Digest-CRC-0.20/META.yml        2015-02-08 17:58:49.000000000 +0100
@@ -1,7 +1,7 @@
 # http://module-build.sourceforge.net/META-spec.html
 #XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
 name:         Digest-CRC
-version:      0.11
+version:      0.20
 version_from: lib/Digest/CRC.pm
 installdirs:  site
 requires:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Digest-CRC-0.18/README new/Digest-CRC-0.20/README
--- old/Digest-CRC-0.18/README  2011-11-12 23:08:26.000000000 +0100
+++ new/Digest-CRC-0.20/README  2015-02-08 12:20:49.000000000 +0100
@@ -1,4 +1,4 @@
-Digest::CRC version 0.18
+Digest::CRC version 0.19
 ========================
 
 NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Digest-CRC-0.18/lib/Digest/CRC.pm 
new/Digest-CRC-0.20/lib/Digest/CRC.pm
--- old/Digest-CRC-0.18/lib/Digest/CRC.pm       2011-11-13 00:44:29.000000000 
+0100
+++ new/Digest-CRC-0.20/lib/Digest/CRC.pm       2015-02-08 17:58:58.000000000 
+0100
@@ -18,9 +18,9 @@
  crc64_hex crc64_base64
 );
 
-$VERSION    = '0.18';
+$VERSION    = '0.20';
 $XS_VERSION = $VERSION;
-$VERSION    = eval $VERSION;
+#$VERSION    = eval $VERSION;
 
 eval {
   # PERL_DL_NONLAZY must be false, or any errors in loading will just
@@ -69,13 +69,13 @@
     $r = $i if $ref;
     for (my $j=0; $j<8; $j++) {
       if ($ref) {
-       $r = ($r>>1)^($r&1&&$poly)
+        $r = ($r>>1)^($r&1&&$poly)
       } else {
-       if ($r&(1<<($width-1))) {
-         $r = ($r<<1)^$poly
-       } else {
-         $r = ($r<<1)
-       }
+        if ($r&(1<<($width-1))) {
+          $r = ($r<<1)^$poly
+        } else {
+          $r = ($r<<1)
+        }
       }
     }
     my $x=$r&2**$width-1;
@@ -161,7 +161,7 @@
     $self->{refin} = $typeparams->[5],
     $self->{cont} = $typeparams->[6],
   }
-  $self->{_tab} = _tabinit($self->{width}, $self->{poly}, $self->{refin});
+  $self->{_tab} = defined($self->{width})?_tabinit($self->{width}, 
$self->{poly}, $self->{refin}):undef;
   $self->{_data} = undef;
   $self
 }
@@ -223,8 +223,13 @@
   my $crc;
   if (!$self->{_crc}) {
     my $init = $self->{init};
-    $crc =_crc($self->{_data},$self->{width},$init,$self->{xorout},
+    if (defined($self->{type}) && $self->{type} eq 'crc64' ||
+        defined($self->{width}) && $self->{width} eq 64) {
+      $crc = _crc64($self->{_data});
+    } else {
+      $crc =_crc($self->{_data},$self->{width},$init,$self->{xorout},
         $self->{refin},$self->{refout},$self->{cont},$self->{_tab});
+    }
   } else {
     $crc = $self->{_crc};
     $self->{_crc} = undef;
@@ -251,7 +256,9 @@
     poly => $self->{poly},
     refin => $self->{refin},
     refout => $self->{refout},
-    _data => $self->{_data}
+    _data => $self->{_data},
+    cont => $self->{cont},
+    _tab => $self->{_tab}
   };
   bless $clone, ref $self || $self;
 }
@@ -304,7 +311,7 @@
 # CRC64
 # special XS implementation (_crc64)
 
-sub crc64 { _crc64($_[0],$_[1]) }
+sub crc64 { _crc64($_[0],defined($_[1])?$_[1]:0) }
 
 sub crc_hex { _encode_hex &crc }
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Digest-CRC-0.18/t/crc.t new/Digest-CRC-0.20/t/crc.t
--- old/Digest-CRC-0.18/t/crc.t 2011-11-13 00:33:53.000000000 +0100
+++ new/Digest-CRC-0.20/t/crc.t 2015-02-08 12:29:33.000000000 +0100
@@ -1,7 +1,7 @@
 BEGIN {
   $tests = 21;
   if ($ENV{'WITH_CRC64'}) {
-    $tests++;
+    $tests=$tests+2;
   }
   $| = 1;
 
@@ -30,6 +30,10 @@
 if ($ENV{'WITH_CRC64'}) {
   my $crc64 = crc64($input);
   ok($crc64 == 5090661014116757502, 'crc64 '.$crc64); 
+  $ctx = Digest::CRC->new(type=>"crc64"); 
+  $ctx->add($input);
+  $crc64 = $ctx->digest;
+  ok($crc64 == 5090661014116757502, 'OO crc64 '.$crc64); 
 }
 
 ok($crc32 == 3421780262, 'crc32'); 
@@ -53,7 +57,7 @@
 $ctx->addfile(F);
 close(F);
 my $y = $ctx->digest;
-ok($y == 3613349160, 'OO crc32 with addfile '.$y); 
+ok($y == 450277065, 'OO crc32 with addfile '.$y); 
 
 # start at offset >0 with previous checksum result
 $ctx = Digest::CRC->new(type=>"crc32",cont=>1,init=>460478609); 

-- 
To unsubscribe, e-mail: opensuse-commit+unsubscr...@opensuse.org
For additional commands, e-mail: opensuse-commit+h...@opensuse.org

Reply via email to