r2680 - in /packages/libstring-crc32-perl/trunk: CRC32.pm CRC32.xs Makefile.PL README debian/changelog debian/control

[eloy at users.alioth.debian.org]

Author: eloy
Date: Sat May  6 11:09:39 2006
New Revision: 2680

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2680
Log:
eloy: new upstream version

Modified:
    packages/libstring-crc32-perl/trunk/CRC32.pm
    packages/libstring-crc32-perl/trunk/CRC32.xs
    packages/libstring-crc32-perl/trunk/Makefile.PL
    packages/libstring-crc32-perl/trunk/README
    packages/libstring-crc32-perl/trunk/debian/changelog
    packages/libstring-crc32-perl/trunk/debian/control

Modified: packages/libstring-crc32-perl/trunk/CRC32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libstring-crc32-perl/trunk/CRC32.pm?rev=2680&op=diff
==============================================================================
--- packages/libstring-crc32-perl/trunk/CRC32.pm (original)
+++ packages/libstring-crc32-perl/trunk/CRC32.pm Sat May  6 11:09:39 2006
@@ -6,7 +6,7 @@
 
 @ISA = qw(Exporter DynaLoader);
 
-$VERSION = 1.3;
+$VERSION = 1.4;
 
 # Items to export into callers namespace by default
 @EXPORT = qw(crc32);

Modified: packages/libstring-crc32-perl/trunk/CRC32.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libstring-crc32-perl/trunk/CRC32.xs?rev=2680&op=diff
==============================================================================
--- packages/libstring-crc32-perl/trunk/CRC32.xs (original)
+++ packages/libstring-crc32-perl/trunk/CRC32.xs Sat May  6 11:09:39 2006
@@ -90,15 +90,21 @@
     return( crc^0xFFFFFFFF );
 }
 
+#define BUFSIZE 32768
+
 U32
 getcrc_fp( PerlIO *fp, U32 crcinit )
 {
     register U32 crc;
-    int     c;
+    register U16 len;
+    unsigned char buf[BUFSIZE];
 
     crc = crcinit^0xFFFFFFFF;
-    while( (c=PerlIO_getc(fp)) != EOF ) {
-        crc = ((crc>>8) & 0x00FFFFFF) ^ crcTable[ (crc^c) & 0xFF ];
+    while((len = PerlIO_read(fp, buf, BUFSIZE)) > 0 ) {
+        unsigned char * p = buf;
+        do {
+	    crc = ((crc >> 8) & 0x00FFFFFF) ^ crcTable[(unsigned char)( (crc & 0xff) ^ *(p++) )];
+	} while (--len);
     }
     return( crc^0xFFFFFFFF );
 }
@@ -157,4 +163,4 @@
 	sv = newSV(0);
 	sv_setuv(sv, (UV)rv);
 	PUSHs(sv_2mortal(sv));
-      }
+      }

Modified: packages/libstring-crc32-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libstring-crc32-perl/trunk/Makefile.PL?rev=2680&op=diff
==============================================================================
--- packages/libstring-crc32-perl/trunk/Makefile.PL (original)
+++ packages/libstring-crc32-perl/trunk/Makefile.PL Sat May  6 11:09:39 2006
@@ -6,7 +6,7 @@
 WriteMakefile(
 	'NAME' => 'String::CRC32',
 	'DISTNAME' => 'String-CRC32',
-	'VERSION' => '1.3',
+	'VERSION' => '1.4',
 	'OBJECT' => 'CRC32.o',
 	'dist'   => {COMPRESS=>'gzip', SUFFIX=>'gz'}
 );

Modified: packages/libstring-crc32-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libstring-crc32-perl/trunk/README?rev=2680&op=diff
==============================================================================
--- packages/libstring-crc32-perl/trunk/README (original)
+++ packages/libstring-crc32-perl/trunk/README Sat May  6 11:09:39 2006
@@ -19,6 +19,8 @@
    "make install"
 
 If you find any bugs, please send me a good description (or a patch ;-) ).
+Thanks to s0lar(at)gmx.li who sent me a patch to replace PerlIO_getc with
+PerlIO_read to improve performance.
 
 Have fun,
     Soenke J. Peters

Modified: packages/libstring-crc32-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libstring-crc32-perl/trunk/debian/changelog?rev=2680&op=diff
==============================================================================
--- packages/libstring-crc32-perl/trunk/debian/changelog (original)
+++ packages/libstring-crc32-perl/trunk/debian/changelog Sat May  6 11:09:39 2006
@@ -1,3 +1,12 @@
+libstring-crc32-perl (1.4-1) unstable; urgency=low
+
+  * New upstream release
+  * debian/control:
+   - Standards-Version: increased to 3.7.2 without additional changes
+   - Uploaders: added me
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org>  Sat,  6 May 2006 13:07:41 +0200
+
 libstring-crc32-perl (1.3-3) unstable; urgency=low
 
   * Adopted by the Debian pkg-perl group (Closes: #348954)

Modified: packages/libstring-crc32-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libstring-crc32-perl/trunk/debian/control?rev=2680&op=diff
==============================================================================
--- packages/libstring-crc32-perl/trunk/debian/control (original)
+++ packages/libstring-crc32-perl/trunk/debian/control Sat May  6 11:09:39 2006
@@ -3,8 +3,8 @@
 Priority: optional
 Build-Depends: perl (>= 5.8.0-1), debhelper (>= 5.0.0)
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Gunnar Wolf <gwolf at debian.org>
-Standards-Version: 3.6.2
+Uploaders: Gunnar Wolf <gwolf at debian.org>, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
+Standards-Version: 3.7.2
 
 Package: libstring-crc32-perl
 Architecture: any