r2447 - in packages/libdigest-crc-perl/tags: .
debian_version_0_10-1 debian_version_0_10-1/debian
debian_version_0_10-1/lib/Digest debian_version_0_10-1/t
Gunnar Wolf
gwolf at costa.debian.org
Sun Mar 19 18:09:29 UTC 2006
Author: gwolf
Date: 2006-03-19 18:09:28 +0000 (Sun, 19 Mar 2006)
New Revision: 2447
Added:
packages/libdigest-crc-perl/tags/debian_version_0_09-1/
packages/libdigest-crc-perl/tags/debian_version_0_10-1/
packages/libdigest-crc-perl/tags/debian_version_0_10-1/CRC.xs
packages/libdigest-crc-perl/tags/debian_version_0_10-1/Changes
packages/libdigest-crc-perl/tags/debian_version_0_10-1/META.yml
packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/changelog
packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/control
packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/watch
packages/libdigest-crc-perl/tags/debian_version_0_10-1/lib/Digest/CRC.pm
packages/libdigest-crc-perl/tags/debian_version_0_10-1/t/crc.t
Removed:
packages/libdigest-crc-perl/tags/0.09-1/
packages/libdigest-crc-perl/tags/debian_version_0_10-1/CRC.xs
packages/libdigest-crc-perl/tags/debian_version_0_10-1/Changes
packages/libdigest-crc-perl/tags/debian_version_0_10-1/META.yml
packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/changelog
packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/control
packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/watch
packages/libdigest-crc-perl/tags/debian_version_0_10-1/lib/Digest/CRC.pm
packages/libdigest-crc-perl/tags/debian_version_0_10-1/t/crc.t
Log:
Uploaded version 0.10
Fixed wrong directory name 0.09-1 -> debian_version_0_09-1
Copied: packages/libdigest-crc-perl/tags/debian_version_0_09-1 (from rev 2442, packages/libdigest-crc-perl/tags/0.09-1)
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1 (from rev 2444, packages/libdigest-crc-perl/trunk)
Deleted: packages/libdigest-crc-perl/tags/debian_version_0_10-1/CRC.xs
===================================================================
--- packages/libdigest-crc-perl/trunk/CRC.xs 2006-03-19 17:59:45 UTC (rev 2444)
+++ packages/libdigest-crc-perl/tags/debian_version_0_10-1/CRC.xs 2006-03-19 18:09:28 UTC (rev 2447)
@@ -1,139 +0,0 @@
-#define PERL_NO_GET_CONTEXT
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#ifndef NVTYPE
-# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE)
-# define NVTYPE long double
-# else
-# define NVTYPE double
-# endif
-typedef NVTYPE NV;
-#endif
-
-#ifndef newSVuv
-# define newSVuv(uv) (uv > ((~((UV)0))>>1) ? newSVnv((NV)uv) : newSViv((IV)uv))
-#endif
-
-#ifndef aTHX_
-# define aTHX_
-#endif
-
-#ifndef SvGETMAGIC
-# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
-#endif
-
-#define TABSIZE 256
-
-static UV reflect(UV in, int width)
-{
- int i;
- UV out = 0;
-
- for (i = width; in; i--, in >>= 1)
- out = (out << 1) | (in & 1);
-
- return out << i;
-}
-
-MODULE = Digest::CRC PACKAGE = Digest::CRC
-
-PROTOTYPES: ENABLE
-
-SV *
-_tabinit(width, poly, ref)
- IV width
- UV poly
- IV ref
-
- PREINIT:
- UV *tab;
- UV mask, t, r, i;
- int j, wm8;
-
- CODE:
- if (ref)
- poly = reflect(poly, width);
-
- mask = ((UV)1)<<(width-1);
- mask = mask + (mask-1);
-
- i = TABSIZE*sizeof(UV);
- RETVAL = newSV(i);
- SvPOK_only(RETVAL);
- SvCUR_set(RETVAL, i);
- tab = (UV *) SvPVX(RETVAL);
-
- if (!ref) {
- t = ((UV)1) << (width - 1);
- wm8 = width - 8;
- }
-
- for (i = 0; i < TABSIZE; i++) {
- if (ref) {
- r = i;
- for (j = 0; j < 8; j++)
- if (r & 1)
- r = (r >> 1) ^ poly;
- else
- r >>= 1;
- }
- else {
- r = i << (width - 8);
- for (j = 0; j < 8; j++)
- if (r & t)
- r = (r << 1) ^ poly;
- else
- r <<= 1;
- }
- tab[i] = r & mask;
- }
-
- OUTPUT:
- RETVAL
-
-SV *
-_crc(message, width, init, xorout, refin, refout, table)
- SV *message
- IV width
- UV init
- UV xorout
- IV refin
- IV refout
- SV *table
-
- PREINIT:
- UV crc, mask, *tab;
- STRLEN len;
- const char *msg, *end;
-
- CODE:
- SvGETMAGIC(message);
-
- crc = refin ? reflect(init, width) : init;
- msg = SvPV(message, len);
- end = msg + len;
- mask = ((UV)1)<<(width-1);
- mask = mask + (mask-1);
- tab = (UV *) SvPVX(table);
-
- if (refin) {
- while (msg < end)
- crc = (crc >> 8) ^ tab[(crc ^ *msg++) & 0xFF];
- }
- else {
- int wm8 = width - 8;
- while (msg < end)
- crc = (crc << 8) ^ tab[((crc >> wm8) ^ *msg++) & 0xFF];
- }
-
- if (refout ^ refin)
- crc = reflect(crc, width);
-
- crc = (crc ^ xorout) & mask;
-
- RETVAL = newSVuv(crc);
-
- OUTPUT:
- RETVAL
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1/CRC.xs (from rev 2445, packages/libdigest-crc-perl/trunk/CRC.xs)
Deleted: packages/libdigest-crc-perl/tags/debian_version_0_10-1/Changes
===================================================================
--- packages/libdigest-crc-perl/trunk/Changes 2006-03-19 17:59:45 UTC (rev 2444)
+++ packages/libdigest-crc-perl/tags/debian_version_0_10-1/Changes 2006-03-19 18:09:28 UTC (rev 2447)
@@ -1,27 +0,0 @@
-Revision history for Perl extension Digest::CRC.
-
-0.01 Wed Apr 21 15:12:59 2004
- - original version; created by h2xs 1.19
-
-0.03 Fri Apr 23 10:57:39 2004
- - adopted to Digest::
-
-0.04 Fri Apr 23 12:05:18 2004
- - added _hex functions
-
-0.05 Fri Apr 23 13:14:04 2004
- - some bug fixes
-
-0.06 Mon May 03 10:45:12 2004
- - two bug fixes from Tim Heaney <theaney at cablespeed.com>
-
-0.07 Mon May 17 10:57:12 2004
- - crc8 bug fixed. Thanks to Mathis Moder <mathis at pixelconcepts.de>
-
-0.08 Sat May 21 22:32:34 2004
- - crc8 bug fixed. Thanks to Mathis Moder <mathis at pixelconcepts.de>
-
-0.09 Mon Jul 05 23:37:13 2004
- - major performance improvements by adding optional XS code.
- Thanks to Marcus Holland-Moritz <mhx-perl at gmx.net>
-
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1/Changes (from rev 2445, packages/libdigest-crc-perl/trunk/Changes)
Deleted: packages/libdigest-crc-perl/tags/debian_version_0_10-1/META.yml
===================================================================
--- packages/libdigest-crc-perl/trunk/META.yml 2006-03-19 17:59:45 UTC (rev 2444)
+++ packages/libdigest-crc-perl/tags/debian_version_0_10-1/META.yml 2006-03-19 18:09:28 UTC (rev 2447)
@@ -1,16 +0,0 @@
---- #YAML:1.0
-name: Digest-CRC
-version: 0.09
-author:
- - Oliver Maul, oli at 42.nu
-abstract: Generic CRC functions
-license: perl
-requires: {}
-recommends: {}
-build_requires: {}
-conflicts: {}
-provides:
- Digest::CRC:
- file: lib/Digest/CRC.pm
- version: 0.09
-generated_by: Module::Build version 0.22
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1/META.yml (from rev 2445, packages/libdigest-crc-perl/trunk/META.yml)
Deleted: packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/changelog
===================================================================
--- packages/libdigest-crc-perl/trunk/debian/changelog 2006-03-19 17:59:45 UTC (rev 2444)
+++ packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/changelog 2006-03-19 18:09:28 UTC (rev 2447)
@@ -1,6 +0,0 @@
-libdigest-crc-perl (0.09-1) unstable; urgency=low
-
- * Initial Release.
-
- -- Allard Hoeve <allard at byte.nl> Wed, 22 Sep 2004 16:51:23 +0200
-
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/changelog (from rev 2446, packages/libdigest-crc-perl/trunk/debian/changelog)
Deleted: packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/control
===================================================================
--- packages/libdigest-crc-perl/trunk/debian/control 2006-03-19 17:59:45 UTC (rev 2444)
+++ packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/control 2006-03-19 18:09:28 UTC (rev 2447)
@@ -1,16 +0,0 @@
-Source: libdigest-crc-perl
-Section: perl
-Priority: optional
-Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Allard Hoeve <allard at byte.nl>, Gunnar Wolf <gwolf at debian.org>, Joachim Breitner <nomeata at debian.org>
-Standards-Version: 3.6.1
-Build-Depends: debhelper (>= 4.0.2), perl (>= 5.8)
-
-Package: libdigest-crc-perl
-Architecture: any
-Depends: ${perl:Depends}, ${shlibs:Depends}
-Description: Generic CRC functions for Perl
- The Digest::CRC module calculates CRC sums of all sorts.
- It contains wrapper functions with the correct parameters for CRC-CCITT,
- CRC-16 and CRC-32. The module acts similar to libstring-crc32-perl, but
- implements the Digest interface.
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/control (from rev 2446, packages/libdigest-crc-perl/trunk/debian/control)
Deleted: packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/watch
===================================================================
--- packages/libdigest-crc-perl/trunk/debian/watch 2006-03-19 17:59:45 UTC (rev 2444)
+++ packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/watch 2006-03-19 18:09:28 UTC (rev 2447)
@@ -1,3 +0,0 @@
-version=3
-http://mirrors.kernel.org/cpan/modules/by-module/Digest/Digest-CRC-([\d\.]+)\.tar\.gz
-
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1/debian/watch (from rev 2445, packages/libdigest-crc-perl/trunk/debian/watch)
Deleted: packages/libdigest-crc-perl/tags/debian_version_0_10-1/lib/Digest/CRC.pm
===================================================================
--- packages/libdigest-crc-perl/trunk/lib/Digest/CRC.pm 2006-03-19 17:59:45 UTC (rev 2444)
+++ packages/libdigest-crc-perl/tags/debian_version_0_10-1/lib/Digest/CRC.pm 2006-03-19 18:09:28 UTC (rev 2447)
@@ -1,308 +0,0 @@
-package Digest::CRC;
-
-use strict;
-use vars qw($VERSION $XS_VERSION @ISA @EXPORT_OK %_typedef);
-
-require Exporter;
-
- at ISA = qw(Exporter);
-
- at EXPORT_OK = qw(
- crc8 crcccitt crc16 crc32 crc
- crc_hex crc_base64
- crcccitt_hex crcccitt_base64
- crc8_hex crc8_base64
- crc16_hex crc16_base64
- crc32_hex crc32_base64
-);
-
-$VERSION = '0.09';
-$XS_VERSION = $VERSION;
-$VERSION = eval $VERSION;
-
-eval {
- # PERL_DL_NONLAZY must be false, or any errors in loading will just
- # cause the perl code to be tested
- local $ENV{PERL_DL_NONLAZY} = 0 if $ENV{PERL_DL_NONLAZY};
- require DynaLoader;
- local @ISA = qw(DynaLoader);
- bootstrap Digest::CRC $XS_VERSION;
- 1
-};
-
-# Only load the non-XS stuff on demand
-defined &_crc or eval <<'ENOXS';
-
-sub _reflect {
- my ($in, $width) = @_;
- my $out = 0;
- for(my $i=1; $i < ($width+1); $i++) {
- $out |= 1 << ($width-$i) if ($in & 1);
- $in=$in>>1;
- }
- $out;
-}
-
-sub _tabinit {
- my ($width,$poly_in,$ref) = @_;
- my @crctab;
- my $poly = $poly_in;
-
- if ($ref) {
- $poly = _reflect($poly,$width);
- }
-
- for (my $i=0; $i<256; $i++) {
- my $r = $i<<($width-8);
- $r = $i if $ref;
- for (my $j=0; $j<8; $j++) {
- if ($ref) {
- $r = ($r>>1)^($r&1&&$poly)
- } else {
- if ($r&(1<<($width-1))) {
- $r = ($r<<1)^$poly
- } else {
- $r = ($r<<1)
- }
- }
- }
- push @crctab, $r&2**$width-1;
- }
- \@crctab;
-}
-
-sub _crc {
- my ($message,$width,$init,$xorout,$refin,$refout,$tab) = @_;
- my $crc = $init;
- $crc = _reflect($crc,$width) if $refin;
- my $pos = -length $message;
- my $mask = 2**$width-1;
- while ($pos) {
- if ($refin) {
- $crc = ($crc>>8)^$tab->[($crc^ord(substr($message, $pos++, 1)))&0xff]
- } else {
- $crc = (($crc<<8))^$tab->[(($crc>>($width-8))^ord(substr $message,$pos++,1))&0xff]
- }
- }
-
- if ($refout^$refin) {
- $crc = _reflect($crc,$width);
- }
-
- $crc = $crc ^ $xorout;
- $crc & $mask;
-}
-
-ENOXS
-
-%_typedef = (
-# name, [width,init,xorout,refout,poly,refin);
- crc8 => [8,0,0,0,0x07,0],
- crcccitt => [16,0xffff,0,0,0x1021,0],
- crc16 => [16,0,0,1,0x8005,1],
- crc32 => [32,0xffffffff,0xffffffff,1,0x04C11DB7,1],
-);
-
-sub new {
- my $that=shift;
- my %params=@_;
- my $class = ref($that) || $that;
- my $self = {map { ($_ => $params{$_}) }
- qw(type width init xorout poly refin refout)};
- bless $self, $class;
- $self->reset();
- $self
-}
-
-sub reset {
- my $self = shift;
- my $typeparams;
- # default is crc32 if no type and no width is defined
- if (!defined($self->{type}) && !defined($self->{width})) {
- $self->{type} = "crc32";
- }
- if (defined($self->{type}) && exists($_typedef{$self->{type}})) {
- $typeparams = $_typedef{$self->{type}};
- $self->{width} = $typeparams->[0],
- $self->{init} = $typeparams->[1],
- $self->{xorout} = $typeparams->[2],
- $self->{refout} = $typeparams->[3],
- $self->{poly} = $typeparams->[4],
- $self->{refin} = $typeparams->[5],
- }
- $self->{_tab} = _tabinit($self->{width}, $self->{poly}, $self->{refin});
- delete $self->{_data};
- $self
-}
-
-#########################################
-# Private output converter functions:
-sub _encode_hex { sprintf "%x", $_[0] }
-sub _encode_base64 {
- my $res;
- while ($_[0] =~ /(.{1,45})/gs) {
- $res .= substr pack('u', $1), 1;
- chop $res;
- }
- $res =~ tr|` -_|AA-Za-z0-9+/|;#`
- chop $res; chop $res;
- $res
-}
-
-#########################################
-# OOP interface:
-
-sub add {
- my $self = shift;
- $self->{_data} .= join '', @_ if @_;
- $self
-}
-
-sub addfile {
- my ($self,$fh) = @_;
- if (!ref($fh) && ref(\$fh) ne "GLOB") {
- require Symbol;
- $fh = Symbol::qualify($fh, scalar caller);
- }
- # $self->{_data} .= do{local$/;<$fh>};
- my $read = 0;
- my $buffer = '';
- $self->add($buffer) while $read = read $fh, $buffer, 8192;
- die __PACKAGE__, " read failed: $!" unless defined $read;
- $self
-}
-
-sub add_bits {
-}
-
-sub digest {
- my $self = shift;
- _crc($self->{_data},$self->{width},$self->{init},$self->{xorout},
- $self->{refin},$self->{refout},$self->{_tab});
-}
-
-sub hexdigest {
- _encode_hex($_[0]->digest)
-}
-
-sub b64digest {
- _encode_base64($_[0]->digest)
-}
-
-sub clone {
- my $self = shift;
- my $clone = {
- type => $self->{type},
- width => $self->{width},
- init => $self->{init},
- xorout => $self->{xorout},
- poly => $self->{poly},
- refin => $self->{refin},
- refout => $self->{refout}
- };
- bless $clone, ref $self || $self;
-}
-
-#########################################
-# Procedural interface:
-
-sub crc {
- my ($message,$width,$init,$xorout,$refout,$poly,$refin) = @_;
- _crc($message,$width,$init,$xorout,$refin,$refout,_tabinit($width,$poly,$refin));
-}
-
-# CRC8
-# poly: 07, width: 8, init: 00, revin: no, revout: no, xorout: no
-
-sub crc8 { crc($_[0],@{$_typedef{crc8}}) }
-
-# CRC-CCITT standard
-# poly: 1021, width: 16, init: ffff, refin: no, refout: no, xorout: no
-
-sub crcccitt { crc($_[0],@{$_typedef{crcccitt}}) }
-
-# CRC16
-# poly: 8005, width: 16, init: 0000, revin: yes, revout: yes, xorout: no
-
-sub crc16 { crc($_[0],@{$_typedef{crc16}}) }
-
-# CRC32
-# poly: 04C11DB7, width: 32, init: FFFFFFFF, revin: yes, revout: yes,
-# xorout: FFFFFFFF
-# equivalent to: cksum -o3
-
-sub crc32 { crc($_[0],@{$_typedef{crc32}}) }
-
-sub crc_hex { _encode_hex &crc }
-
-sub crc_base64 { _encode_base64 &crc }
-
-sub crc8_hex { _encode_hex &crc8 }
-
-sub crc8_base64 { _encode_base64 &crc8 }
-
-sub crcccitt_hex { _encode_hex &crcccitt }
-
-sub crcccitt_base64 { _encode_base64 &crcccitt }
-
-sub crc16_hex { _encode_hex &crc16 }
-
-sub crc16_base64 { _encode_base64 &crc16 }
-
-sub crc32_hex { _encode_hex &crc32 }
-
-sub crc32_base64 { _encode_base64 &crc32 }
-
-1;
-__END__
-
-=head1 NAME
-
-Digest::CRC - Generic CRC functions
-
-=head1 SYNOPSIS
-
- # Functional style
-
- use Digest::CRC qw(crc32 crc16 crcccitt crc crc8);
- $crc = crc32("123456789");
- $crc = crc16("123456789");
- $crc = crcccitt("123456789");
- $crc = crc8("123456789");
-
- $crc = crc($input,$width,$init,$xorout,$refout,$poly,$refin);
-
- # OO style
- use Digest::CRC;
-
- $ctx = Digest::CRC->new(type=>"crc16");
- $ctx = Digest::CRC->new(width=>16, init=>0x0000, xorout=>0x0000,
- poly=>0x8005, refin=>1, refout=>1);
-
- $ctx->add($data);
- $ctx->addfile(*FILE);
-
- $digest = $ctx->digest;
- $digest = $ctx->hexdigest;
- $digest = $ctx->b64digest;
-
-
-=head1 DESCRIPTION
-
-The B<Digest::CRC> module calculates CRC sums of all sorts.
-It contains wrapper functions with the correct parameters for CRC-CCITT,
-CRC-16 and CRC-32.
-
-=head1 AUTHOR
-
-Oliver Maul, oli at 42.nu
-
-=head1 COPYRIGHT
-
-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.
-
-=cut
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1/lib/Digest/CRC.pm (from rev 2445, packages/libdigest-crc-perl/trunk/lib/Digest/CRC.pm)
Deleted: packages/libdigest-crc-perl/tags/debian_version_0_10-1/t/crc.t
===================================================================
--- packages/libdigest-crc-perl/trunk/t/crc.t 2006-03-19 17:59:45 UTC (rev 2444)
+++ packages/libdigest-crc-perl/tags/debian_version_0_10-1/t/crc.t 2006-03-19 18:09:28 UTC (rev 2447)
@@ -1,72 +0,0 @@
-BEGIN {
- $tests = 16;
- $| = 1;
-
- eval "use Test::More tests => $tests";
-
- $@ and eval <<'ENDEV';
-$ok = 1;
-
-print "1..$tests\n";
-
-sub ok {
- my($res,$comment) = @_;
- defined $comment and print "# $comment\n";
- $res or print "not ";
- print "ok ", $ok++, "\n";
-}
-ENDEV
-}
-
-use Digest::CRC qw(crc32 crc16 crcccitt crc8);
-ok(1, 'use');
-
-my $input = "123456789";
-my ($crc32,$crc16,$crcccitt,$crc8) = (crc32($input),crc16($input),crcccitt($input),crc8($input));
-
-ok($crc32 == 3421780262, 'crc32');
-ok($crcccitt == 10673, 'crcccitt');
-ok($crc16 == 47933, 'crc16');
-ok($crc8 == 244, 'crc8');
-
-my $ctx;
-$ctx = Digest::CRC->new();
-$ctx->add($input);
-ok($ctx->digest == 3421780262, 'OO crc32');
-
-$ctx = Digest::CRC->new(type=>"crcccitt");
-$ctx->add($input);
-ok($ctx->digest == 10673, 'OO crcccitt');
-
-$ctx = Digest::CRC->new(type=>"crc16");
-$ctx->add($input);
-ok($ctx->digest == 47933, 'OO crc16');
-
-$ctx = Digest::CRC->new(width=>16,init=>0,xorout=>0,poly=>0x3456,
- refin=>1,refout=>1);
-$ctx->add($input);
-ok($ctx->digest == 12803, 'OO crc16 poly 3456');
-
-$ctx = Digest::CRC->new(type=>"crc8");
-$ctx->add($input);
-ok($ctx->digest == 244, 'OO crc8');
-
-# crc8 test from Mathis Moder <mathis at pixelconcepts.de>
-$ctx = Digest::CRC->new(width=>8, init=>0xab, xorout=>0x00,poly=>0x07,
- refin=>0, refout=>0);
-$ctx->add($input);
-ok($ctx->digest == 135, 'OO crc8 init=ab');
-
-$ctx = Digest::CRC->new(width=>8, init=>0xab, xorout=>0xff,poly=>0x07,
- refin=>1, refout=>1);
-$ctx->add("f1");
-ok($ctx->digest == 106, 'OO crc8 init=ab, refout');
-
-$input = join '', 'aa'..'zz';
-($crc32,$crc16,$crcccitt,$crc8) = (crc32($input),crc16($input),crcccitt($input),crc8($input));
-
-# some more large messages
-ok($crc32 == 0xCDA63E54, 'crc32');
-ok($crcccitt == 0x9702, 'crcccitt');
-ok($crc16 == 0x0220, 'crc16');
-ok($crc8 == 0x82, 'crc8');
Copied: packages/libdigest-crc-perl/tags/debian_version_0_10-1/t/crc.t (from rev 2445, packages/libdigest-crc-perl/trunk/t/crc.t)
More information about the Pkg-perl-cvs-commits
mailing list