r4298 - in /packages/libdigest-sha-perl/branches/upstream/current:
Changes
MANIFEST META.yml README SHA.pm SHA.xs SIGNATURE examples/ examples/dups
ppport.h shasum src/hmac.c src/hmac.h src/sha.c src/sha.h
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sun Nov 19 20:09:49 CET 2006
Author: gregoa-guest
Date: Sun Nov 19 20:09:49 2006
New Revision: 4298
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=4298
Log:
Load /tmp/tmp.TtKCXD6993/libdigest-sha-perl-5.44 into
packages/libdigest-sha-perl/branches/upstream/current.
Added:
packages/libdigest-sha-perl/branches/upstream/current/examples/
packages/libdigest-sha-perl/branches/upstream/current/examples/dups (with props)
Removed:
packages/libdigest-sha-perl/branches/upstream/current/SIGNATURE
packages/libdigest-sha-perl/branches/upstream/current/ppport.h
Modified:
packages/libdigest-sha-perl/branches/upstream/current/Changes
packages/libdigest-sha-perl/branches/upstream/current/MANIFEST
packages/libdigest-sha-perl/branches/upstream/current/META.yml
packages/libdigest-sha-perl/branches/upstream/current/README
packages/libdigest-sha-perl/branches/upstream/current/SHA.pm
packages/libdigest-sha-perl/branches/upstream/current/SHA.xs
packages/libdigest-sha-perl/branches/upstream/current/shasum
packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c
packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h
packages/libdigest-sha-perl/branches/upstream/current/src/sha.c
packages/libdigest-sha-perl/branches/upstream/current/src/sha.h
Modified: packages/libdigest-sha-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/Changes?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/Changes (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/Changes Sun Nov 19 20:09:49 2006
@@ -1,4 +1,12 @@
Revision history for Perl extension Digest::SHA.
+
+5.44 Sat Oct 14 00:42:44 MST 2006
+ - removed SIGNATURE file from distribution
+ -- spurious errors from CPANPLUS can break build
+ - eliminated ppport.h header file
+ -- significantly reduces size of distribution
+ - modified C functions in src/hmac.c to use ANSI prototypes
+ -- thanks to Jarkko Hietaniemi for patch
5.43 Sat Aug 5 02:36:18 MST 2006
- undid Perl Best Practice of favoring 3-argument "open"
Modified: packages/libdigest-sha-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/MANIFEST?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/MANIFEST Sun Nov 19 20:09:49 2006
@@ -2,13 +2,12 @@
Makefile.PL
MANIFEST
META.yml
-ppport.h
README
SHA.pm
SHA.xs
shasum
-SIGNATURE
typemap
+examples/dups
src/hmac.c
src/hmac.h
src/hmacxtra.c Not used for Perl build
Modified: packages/libdigest-sha-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/META.yml?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/META.yml (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/META.yml Sun Nov 19 20:09:49 2006
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Digest-SHA
-version: 5.43
+version: 5.44
author:
- Mark Shelor, mshelor at cpan.org
abstract: Perl extension for SHA-1/224/256/384/512
@@ -12,5 +12,5 @@
provides:
Digest::SHA:
file: SHA.pm
- version: 5.43
+ version: 5.44
generated_by: Module::Build version 0.22
Modified: packages/libdigest-sha-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/README?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/README (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/README Sun Nov 19 20:09:49 2006
@@ -1,4 +1,4 @@
-Digest::SHA version 5.43
+Digest::SHA version 5.44
========================
Digest::SHA is a complete implementation of the NIST Secure Hash
Modified: packages/libdigest-sha-perl/branches/upstream/current/SHA.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/SHA.pm?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/SHA.pm (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/SHA.pm Sun Nov 19 20:09:49 2006
@@ -6,7 +6,7 @@
use warnings;
use integer;
-our $VERSION = '5.43';
+our $VERSION = '5.44';
require Exporter;
our @ISA = qw(Exporter);
@@ -323,17 +323,16 @@
ref. L<http://www.csrc.nist.gov/pki/HashWorkshop/NIST%20Statement/Burr_Mar2005.html>
-=head1 BASE64 DIGESTS
-
-By convention, CPAN Digest modules do not pad their Base64 output.
-This means that Base64 digests contain no trailing "=" characters.
-Unfortunately, problems can occur when feeding such digests to other
-software that expects properly padded Base64 encodings.
+=head1 PADDING OF BASE64 DIGESTS
+
+By convention, CPAN Digest modules do B<not> pad their Base64 output.
+Problems can occur when feeding such digests to other software that
+expects properly padded Base64 encodings.
For the time being, any necessary padding must be done by the user.
-Fortunately, the rule for accomplishing it is straightforward: if the
-length of a Base64-encoded digest isn't a multiple of 4, simply append
-1 or more "=" characters to the end of the digest until it is:
+Fortunately, this is a simple operation: if the length of a Base64-encoded
+digest isn't a multiple of 4, simply append "=" characters to the end
+of the digest until it is:
while (length($b64_digest) % 4) {
$b64_digest .= '=';
Modified: packages/libdigest-sha-perl/branches/upstream/current/SHA.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/SHA.xs?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/SHA.xs (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/SHA.xs Sun Nov 19 20:09:49 2006
@@ -1,8 +1,6 @@
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
-
-#include "ppport.h"
#include <src/sha.c>
#include <src/hmac.c>
Added: packages/libdigest-sha-perl/branches/upstream/current/examples/dups
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/examples/dups?rev=4298&op=file
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/examples/dups (added)
+++ packages/libdigest-sha-perl/branches/upstream/current/examples/dups Sun Nov 19 20:09:49 2006
@@ -1,0 +1,63 @@
+#!perl
+
+ # dups: simple script for showing duplicate files
+
+=head1 NAME
+
+dups - Show Duplicate Files
+
+=head1 SYNOPSIS
+
+ Usage: dups files ...
+
+ dups is a fast script for discovering duplicate files. It
+ achieves its efficiency by comparing file digests rather than the
+ file contents themselves, the latter being much larger in general.
+
+ The NIST Secure Hash Algorithm (SHA) is highly collision-resistant,
+ meaning that two files with the same SHA digest have an almost
+ certain probability of being identical.
+
+ The dups script works by computing the SHA-1 digest of each file
+ and looking for matches. The search can reveal more than one set
+ of duplicates, so the output is written as follows:
+
+ match1_file1
+ match1_file2
+ match1_file3
+ etc.
+
+ match2_file1
+ match2_file2
+ etc.
+
+=head1 AUTHOR
+
+Mark Shelor <mshelor at cpan.org>
+
+=head1 SEE ALSO
+
+Perl module L<Digest::SHA> or L<Digest::SHA::PurePerl>
+
+=cut
+
+use strict;
+use warnings;
+use Digest::SHA;
+
+die "usage: dups files ...\n" unless @ARGV;
+
+my @files = grep { -f $_ } @ARGV;
+
+my %dups;
+for my $file (@files) {
+ my $digest = Digest::SHA->new->addfile($file, "b")->hexdigest;
+ push(@{$dups{$digest}}, $file);
+}
+
+for (keys %dups) {
+ my $ref = $dups{$_};
+ if (scalar(@$ref) > 1) {
+ print join("\n\t", @$ref), "\n\n";
+ }
+}
Propchange: packages/libdigest-sha-perl/branches/upstream/current/examples/dups
------------------------------------------------------------------------------
svn:executable = *
Modified: packages/libdigest-sha-perl/branches/upstream/current/shasum
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/shasum?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/shasum (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/shasum Sun Nov 19 20:09:49 2006
@@ -4,8 +4,8 @@
#
# Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
#
- # Version: 5.43
- # Sat Aug 5 02:36:18 MST 2006
+ # Version: 5.44
+ # Sat Oct 14 00:42:44 MST 2006
=head1 NAME
@@ -52,7 +52,7 @@
use strict;
use Getopt::Long;
-my $VERSION = "5.43";
+my $VERSION = "5.44";
# Try to use Digest::SHA, since it's faster. If not installed,
Modified: packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/src/hmac.c Sun Nov 19 20:09:49 2006
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.43
- * Sat Aug 5 02:36:18 MST 2006
+ * Version: 5.44
+ * Sat Oct 14 00:42:44 MST 2006
*
*/
@@ -17,10 +17,7 @@
#include "sha.h"
/* hmacopen: creates a new HMAC-SHA digest object */
-HMAC *hmacopen(alg, key, keylen)
-int alg;
-unsigned char *key;
-unsigned int keylen;
+HMAC *hmacopen(int alg, unsigned char *key, unsigned int keylen)
{
unsigned int i;
HMAC *h;
@@ -62,17 +59,13 @@
}
/* hmacwrite: triggers a state update using data in bitstr/bitcnt */
-unsigned long hmacwrite(bitstr, bitcnt, h)
-unsigned char *bitstr;
-unsigned long bitcnt;
-HMAC *h;
+unsigned long hmacwrite(unsigned char *bitstr, unsigned long bitcnt, HMAC *h)
{
return(shawrite(bitstr, bitcnt, h->isha));
}
/* hmacfinish: computes final digest state */
-void hmacfinish(h)
-HMAC *h;
+void hmacfinish(HMAC *h)
{
shafinish(h->isha);
shawrite(shadigest(h->isha), h->isha->digestlen * 8, h->osha);
@@ -81,29 +74,25 @@
}
/* hmacdigest: returns pointer to digest (binary) */
-unsigned char *hmacdigest(h)
-HMAC *h;
+unsigned char *hmacdigest(HMAC *h)
{
return(shadigest(h->osha));
}
/* hmachex: returns pointer to digest (hexadecimal) */
-char *hmachex(h)
-HMAC *h;
+char *hmachex(HMAC *h)
{
return(shahex(h->osha));
}
/* hmacbase64: returns pointer to digest (Base 64) */
-char *hmacbase64(h)
-HMAC *h;
+char *hmacbase64(HMAC *h)
{
return(shabase64(h->osha));
}
/* hmacclose: de-allocates digest object */
-int hmacclose(h)
-HMAC *h;
+int hmacclose(HMAC *h)
{
shaclose(h->osha);
if (h != NULL) {
Modified: packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/src/hmac.h Sun Nov 19 20:09:49 2006
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.43
- * Sat Aug 5 02:36:18 MST 2006
+ * Version: 5.44
+ * Sat Oct 14 00:42:44 MST 2006
*
*/
Modified: packages/libdigest-sha-perl/branches/upstream/current/src/sha.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/src/sha.c?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/src/sha.c (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/src/sha.c Sun Nov 19 20:09:49 2006
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.43
- * Sat Aug 5 02:36:18 MST 2006
+ * Version: 5.44
+ * Sat Oct 14 00:42:44 MST 2006
*
*/
Modified: packages/libdigest-sha-perl/branches/upstream/current/src/sha.h
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/branches/upstream/current/src/sha.h?rev=4298&op=diff
==============================================================================
--- packages/libdigest-sha-perl/branches/upstream/current/src/sha.h (original)
+++ packages/libdigest-sha-perl/branches/upstream/current/src/sha.h Sun Nov 19 20:09:49 2006
@@ -5,8 +5,8 @@
*
* Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
*
- * Version: 5.43
- * Sat Aug 5 02:36:18 MST 2006
+ * Version: 5.44
+ * Sat Oct 14 00:42:44 MST 2006
*
*/
More information about the Pkg-perl-cvs-commits
mailing list