r5791 - in /packages/libdigest-sha-perl/trunk: ./ debian/ examples/ src/ t/ t/gillogly/ t/nist/ t/state/

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Sat Jul 14 20:49:09 UTC 2007 

Author: gregoa-guest
Date: Sat Jul 14 20:49:08 2007
New Revision: 5791

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5791
Log:
* New upstream release.
* DOn't try to install t/nist/Readme.txt -- doesn't exist anymore.

Added:
    packages/libdigest-sha-perl/trunk/t/allfcns.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/allfcns.t
    packages/libdigest-sha-perl/trunk/t/base64.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/base64.t
    packages/libdigest-sha-perl/trunk/t/bitbuf.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/bitbuf.t
    packages/libdigest-sha-perl/trunk/t/dumpload.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/dumpload.t
    packages/libdigest-sha-perl/trunk/t/fips198.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/fips198.t
    packages/libdigest-sha-perl/trunk/t/gg.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/gg.t
    packages/libdigest-sha-perl/trunk/t/gglong.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/gglong.t
    packages/libdigest-sha-perl/trunk/t/hmacsha.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/hmacsha.t
    packages/libdigest-sha-perl/trunk/t/ireland.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/ireland.t
    packages/libdigest-sha-perl/trunk/t/methods.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/methods.t
    packages/libdigest-sha-perl/trunk/t/nistbit.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/nistbit.t
    packages/libdigest-sha-perl/trunk/t/nistbyte.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/nistbyte.t
    packages/libdigest-sha-perl/trunk/t/pod.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/pod.t
    packages/libdigest-sha-perl/trunk/t/podcover.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/podcover.t
    packages/libdigest-sha-perl/trunk/t/rfc2202.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/rfc2202.t
    packages/libdigest-sha-perl/trunk/t/sha1.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/sha1.t
    packages/libdigest-sha-perl/trunk/t/sha224.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/sha224.t
    packages/libdigest-sha-perl/trunk/t/sha256.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/sha256.t
    packages/libdigest-sha-perl/trunk/t/sha384.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/sha384.t
    packages/libdigest-sha-perl/trunk/t/sha512.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/sha512.t
    packages/libdigest-sha-perl/trunk/t/woodbury.t
      - copied unchanged from r5790, packages/libdigest-sha-perl/branches/upstream/current/t/woodbury.t
Removed:
    packages/libdigest-sha-perl/trunk/t/0-pod-coverage.t
    packages/libdigest-sha-perl/trunk/t/0-pod.t
    packages/libdigest-sha-perl/trunk/t/1-exist.t
    packages/libdigest-sha-perl/trunk/t/1-hello-world.t
    packages/libdigest-sha-perl/trunk/t/2-nist-sha-1.t
    packages/libdigest-sha-perl/trunk/t/2-nist-sha-224.t
    packages/libdigest-sha-perl/trunk/t/2-nist-sha-256.t
    packages/libdigest-sha-perl/trunk/t/2-nist-sha-384.t
    packages/libdigest-sha-perl/trunk/t/2-nist-sha-512.t
    packages/libdigest-sha-perl/trunk/t/2-nist-sha-base64.t
    packages/libdigest-sha-perl/trunk/t/2-nist-sha-oo.t
    packages/libdigest-sha-perl/trunk/t/2-nist-vectors-bit.t
    packages/libdigest-sha-perl/trunk/t/2-nist-vectors-byte.t
    packages/libdigest-sha-perl/trunk/t/3-gillogly-easy.t
    packages/libdigest-sha-perl/trunk/t/3-gillogly-hard.t
    packages/libdigest-sha-perl/trunk/t/4-bitstr-increasing.t
    packages/libdigest-sha-perl/trunk/t/4-bitstr-large.t
    packages/libdigest-sha-perl/trunk/t/4-bitstr-random.t
    packages/libdigest-sha-perl/trunk/t/5-hmac-fips198.t
    packages/libdigest-sha-perl/trunk/t/5-hmac-rfc2202.t
    packages/libdigest-sha-perl/trunk/t/5-hmac-sha-256.t
    packages/libdigest-sha-perl/trunk/t/5-hmac-woodbury.t
    packages/libdigest-sha-perl/trunk/t/6-dump-load.t
    packages/libdigest-sha-perl/trunk/t/7-ireland.t
    packages/libdigest-sha-perl/trunk/t/gillogly/
    packages/libdigest-sha-perl/trunk/t/nist/
    packages/libdigest-sha-perl/trunk/t/state/
Modified:
    packages/libdigest-sha-perl/trunk/Changes
    packages/libdigest-sha-perl/trunk/MANIFEST
    packages/libdigest-sha-perl/trunk/META.yml
    packages/libdigest-sha-perl/trunk/Makefile.PL
    packages/libdigest-sha-perl/trunk/README
    packages/libdigest-sha-perl/trunk/SHA.pm
    packages/libdigest-sha-perl/trunk/SHA.xs
    packages/libdigest-sha-perl/trunk/debian/changelog
    packages/libdigest-sha-perl/trunk/debian/rules
    packages/libdigest-sha-perl/trunk/examples/dups
    packages/libdigest-sha-perl/trunk/shasum
    packages/libdigest-sha-perl/trunk/src/hmac.c
    packages/libdigest-sha-perl/trunk/src/hmac.h
    packages/libdigest-sha-perl/trunk/src/hmacxtra.c
    packages/libdigest-sha-perl/trunk/src/sha.c
    packages/libdigest-sha-perl/trunk/src/sha.h

Modified: packages/libdigest-sha-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/Changes?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/Changes (original)
+++ packages/libdigest-sha-perl/trunk/Changes Sat Jul 14 20:49:08 2007
@@ -1,4 +1,11 @@
 Revision history for Perl extension Digest::SHA.
+
+5.45  Tue Jun 26 02:36:00 MST 2007
+	- extended portability to earlier Perls
+		-- works on Perl 5.003 and later
+		-- thanks to Jim Doble for testing on legacy platforms
+	- updated META.yml to conform to current META spec (1.3)
+	- minor documentation fixes
 
 5.44  Sat Oct 14 00:42:44 MST 2006
 	- removed SIGNATURE file from distribution

Modified: packages/libdigest-sha-perl/trunk/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/MANIFEST?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/MANIFEST (original)
+++ packages/libdigest-sha-perl/trunk/MANIFEST Sat Jul 14 20:49:08 2007
@@ -6,49 +6,34 @@
 SHA.pm
 SHA.xs
 shasum
-typemap
 examples/dups
 src/hmac.c
 src/hmac.h
 src/hmacxtra.c			Not used for Perl build
 src/sha.c
 src/sha.h
-src/shaxtra.c			Not used for Perl build
 src/sha64bit.c
 src/sha64bit.h
-t/0-pod-coverage.t
-t/0-pod.t
-t/1-exist.t
-t/1-hello-world.t
-t/2-nist-sha-1.t
-t/2-nist-sha-224.t
-t/2-nist-sha-256.t
-t/2-nist-sha-384.t
-t/2-nist-sha-512.t
-t/2-nist-sha-base64.t
-t/2-nist-sha-oo.t
-t/2-nist-vectors-bit.t
-t/2-nist-vectors-byte.t
-t/3-gillogly-easy.t
-t/3-gillogly-hard.t
-t/4-bitstr-increasing.t
-t/4-bitstr-large.t
-t/4-bitstr-random.t
-t/5-hmac-fips198.t
-t/5-hmac-rfc2202.t
-t/5-hmac-sha-256.t
-t/5-hmac-woodbury.t
-t/6-dump-load.t
-t/7-ireland.t
-t/gillogly/state.011
-t/gillogly/state.110
-t/nist/COPYRIGHT
-t/nist/Readme.txt
-t/nist/bit-hashes.sha1
-t/nist/bit-messages.sha1
-t/nist/byte-hashes.sha1
-t/nist/byte-messages.sha1
-t/state/state.1
-t/state/state.256
-t/state/state.384
-t/state/state.512
+src/shaxtra.c			Not used for Perl build
+t/allfcns.t
+t/base64.t
+t/bitbuf.t
+t/dumpload.t
+t/fips198.t
+t/gg.t
+t/gglong.t
+t/hmacsha.t
+t/ireland.t
+t/methods.t
+t/nistbit.t
+t/nistbyte.t
+t/pod.t
+t/podcover.t
+t/rfc2202.t
+t/sha1.t
+t/sha224.t
+t/sha256.t
+t/sha384.t
+t/sha512.t
+t/woodbury.t
+typemap

Modified: packages/libdigest-sha-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/META.yml?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/META.yml (original)
+++ packages/libdigest-sha-perl/trunk/META.yml Sat Jul 14 20:49:08 2007
@@ -1,16 +1,11 @@
 --- #YAML:1.0
 name: Digest-SHA
-version: 5.44
+version: 5.45
+abstract: Perl extension for SHA-1/224/256/384/512
+license: perl
 author:
   - Mark Shelor, mshelor at cpan.org
-abstract: Perl extension for SHA-1/224/256/384/512
-license: perl
-requires: {}
-recommends: {}
-build_requires: {}
-conflicts: {}
-provides:
-  Digest::SHA:
-    file: SHA.pm
-    version: 5.44
-generated_by: Module::Build version 0.22
+meta-spec:
+  version: 1.3
+  url: http://module-build.sourceforge.net/META-spec-v1.3.html
+generated_by: Mark Shelor

Modified: packages/libdigest-sha-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/Makefile.PL?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/Makefile.PL (original)
+++ packages/libdigest-sha-perl/trunk/Makefile.PL Sat Jul 14 20:49:08 2007
@@ -1,4 +1,4 @@
-require 5.006000;
+require 5.003000;
 
 use ExtUtils::MakeMaker;
 use Getopt::Std;
@@ -7,8 +7,8 @@
 my %opts;
 getopts('tx', \%opts);
 
-my @defines = ('-DSHA_PERL_MODULE');
-
+my @defines;
+push(@defines, '-DSHA_PERL_MODULE') if $] >= 5.004;
 push(@defines, '-DSHA_THREAD_SAFE') if $opts{'t'};
 push(@defines, '-DNO_SHA_384_512')  if $opts{'x'};
 
@@ -23,14 +23,16 @@
 
 my $define = join(' ', @defines);
 
-WriteMakefile(
+my %att = (
 	'NAME'		=> 'Digest::SHA',
 	'VERSION_FROM'	=> 'SHA.pm',
-	'PREREQ_PM'	=> {},
-	'AUTHOR'	=> 'Mark Shelor <mshelor at cpan.org>',
 	'LIBS'		=> [''],
 	'DEFINE'	=> $define,
 	'INC'		=> '-I.',
-	'NO_META'	=> 1,
-	'EXE_FILES'	=> [ 'shasum' ]
+	'EXE_FILES'	=> [ 'shasum' ],
 );
+
+$att{NO_META} = 1
+	unless $ExtUtils::MakeMaker::VERSION < 6.10_03;
+
+WriteMakefile(%att);

Modified: packages/libdigest-sha-perl/trunk/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/README?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/README (original)
+++ packages/libdigest-sha-perl/trunk/README Sat Jul 14 20:49:08 2007
@@ -1,4 +1,4 @@
-Digest::SHA version 5.44
+Digest::SHA version 5.45
 ========================
 
 Digest::SHA is a complete implementation of the NIST Secure Hash
@@ -34,7 +34,7 @@
 
 COPYRIGHT AND LICENSE
 
-Copyright (C) 2003-2006 Mark Shelor
+Copyright (C) 2003-2007 Mark Shelor
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: packages/libdigest-sha-perl/trunk/SHA.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/SHA.pm?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/SHA.pm (original)
+++ packages/libdigest-sha-perl/trunk/SHA.pm Sat Jul 14 20:49:08 2007
@@ -1,17 +1,17 @@
 package Digest::SHA;
 
-require 5.006000;
+require 5.003000;
 
 use strict;
-use warnings;
 use integer;
-
-our $VERSION = '5.44';
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
+
+$VERSION = '5.45';
 
 require Exporter;
-our @ISA = qw(Exporter);
-
-our @EXPORT_OK = qw(
+require DynaLoader;
+ at ISA = qw(Exporter DynaLoader);
+ at EXPORT_OK = qw(
 	hmac_sha1	hmac_sha1_base64	hmac_sha1_hex
 	hmac_sha224	hmac_sha224_base64	hmac_sha224_hex
 	hmac_sha256	hmac_sha256_base64	hmac_sha256_hex
@@ -36,11 +36,6 @@
 	*hexdigest = \&Hexdigest;
 	*b64digest = \&B64digest;
 }
-
-require XSLoader;
-XSLoader::load('Digest::SHA', $VERSION);
-
-# Preloaded methods go here.
 
 # The following routines aren't time-critical, so they can be left in Perl
 
@@ -118,32 +113,32 @@
 	my ($binary, $portable) = map { $_ eq $mode } ("b", "p");
 	my $text = -T $file;
 
-	open(my $fh, "<$file")			## no critic
-		or _bail("Open failed");
-	binmode($fh) if $binary || $portable;
+	local *FH;
+	open(FH, "<$file") or _bail("Open failed");
+	binmode(FH) if $binary || $portable;
 
 	unless ($portable && $text) {
-		$self->_addfile($fh);
-		close($fh);
+		$self->_addfile(*FH);
+		close(FH);
 		return($self);
 	}
 
 	my ($n1, $n2);
 	my ($buf1, $buf2) = ("", "");
 
-	while (($n1 = read($fh, $buf1, 4096))) {
+	while (($n1 = read(FH, $buf1, 4096))) {
 		while (substr($buf1, -1) eq "\015") {
-			$n2 = read($fh, $buf2, 4096);
+			$n2 = read(FH, $buf2, 4096);
 			_bail("Read failed") unless defined $n2;
 			last unless $n2;
 			$buf1 .= $buf2;
 		}
 		$buf1 =~ s/\015?\015\012/\012/g; 	# DOS/Windows
-		$buf1 =~ s/\015/\012/g;          	# Apple/MacOS 9
+		$buf1 =~ s/\015/\012/g;          	# early MacOS
 		$self->add($buf1);
 	}
 	_bail("Read failed") unless defined $n1;
-	close($fh);
+	close(FH);
 
 	$self;
 }
@@ -170,6 +165,8 @@
 	return($self);
 }
 
+Digest::SHA->bootstrap($VERSION);
+
 1;
 __END__
 
@@ -177,7 +174,7 @@
 
 Digest::SHA - Perl extension for SHA-1/224/256/384/512
 
-=head1 SYNOPSIS (SHA)
+=head1 SYNOPSIS
 
 In programs:
 
@@ -404,7 +401,7 @@
 It's important to note that the resulting string does B<not> contain
 the padding characters typical of Base64 encodings.  This omission is
 deliberate, and is done to maintain compatibility with the family of
-CPAN Digest modules.  See L</"BASE64 DIGESTS"> for details.
+CPAN Digest modules.  See L</"PADDING OF BASE64 DIGESTS"> for details.
 
 =back
 
@@ -558,7 +555,7 @@
 It's important to note that the resulting string does B<not> contain
 the padding characters typical of Base64 encodings.  This omission is
 deliberate, and is done to maintain compatibility with the family of
-CPAN Digest modules.  See L</"BASE64 DIGESTS"> for details.
+CPAN Digest modules.  See L</"PADDING OF BASE64 DIGESTS"> for details.
 
 =back
 
@@ -614,7 +611,7 @@
 It's important to note that the resulting string does B<not> contain
 the padding characters typical of Base64 encodings.  This omission is
 deliberate, and is done to maintain compatibility with the family of
-CPAN Digest modules.  See L</"BASE64 DIGESTS"> for details.
+CPAN Digest modules.  See L</"PADDING OF BASE64 DIGESTS"> for details.
 
 =back
 
@@ -640,6 +637,7 @@
 
 	Gisle Aas
 	Chris Carey
+	Jim Doble
 	Julius Duque
 	Jeffrey Friedl
 	Robert Gilmour
@@ -657,7 +655,7 @@
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2003-2006 Mark Shelor
+Copyright (C) 2003-2007 Mark Shelor
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

Modified: packages/libdigest-sha-perl/trunk/SHA.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/SHA.xs?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/SHA.xs (original)
+++ packages/libdigest-sha-perl/trunk/SHA.xs Sat Jul 14 20:49:08 2007
@@ -14,6 +14,10 @@
 
 #include <src/sha.h>
 #include <src/hmac.h>
+
+#ifndef INT2PTR
+#define INT2PTR(p, i) (p) (i)
+#endif
 
 int
 shaclose(s)

Modified: packages/libdigest-sha-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/debian/changelog?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/debian/changelog (original)
+++ packages/libdigest-sha-perl/trunk/debian/changelog Sat Jul 14 20:49:08 2007
@@ -1,3 +1,10 @@
+libdigest-sha-perl (5.45-1) unstable; urgency=low
+
+  * New upstream release.
+  * DOn't try to install t/nist/Readme.txt -- doesn't exist anymore.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Sat, 14 Jul 2007 22:46:50 +0200
+
 libdigest-sha-perl (5.44-1) unstable; urgency=low
 
   * New upstream release.

Modified: packages/libdigest-sha-perl/trunk/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/debian/rules?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/debian/rules (original)
+++ packages/libdigest-sha-perl/trunk/debian/rules Sat Jul 14 20:49:08 2007
@@ -72,7 +72,7 @@
 binary-arch: build install
 	dh_testdir
 	dh_testroot
-	dh_installdocs README t/nist/Readme.txt
+	dh_installdocs README
 	dh_installexamples examples/*
 #	dh_installmenu
 #	dh_installcron

Modified: packages/libdigest-sha-perl/trunk/examples/dups
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/examples/dups?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/examples/dups (original)
+++ packages/libdigest-sha-perl/trunk/examples/dups Sat Jul 14 20:49:08 2007
@@ -42,7 +42,6 @@
 =cut
 
 use strict;
-use warnings;
 use Digest::SHA;
 
 die "usage: dups files ...\n" unless @ARGV;

Modified: packages/libdigest-sha-perl/trunk/shasum
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/shasum?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/shasum (original)
+++ packages/libdigest-sha-perl/trunk/shasum Sat Jul 14 20:49:08 2007
@@ -2,10 +2,10 @@
 
 	# shasum: filter for computing SHA digests (analogous to sha1sum)
 	#
-	# Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
+	# Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
 	#
-	# Version: 5.44
-	# Sat Oct 14 00:42:44 MST 2006
+	# Version: 5.45
+	# Tue Jun 26 02:36:00 MST 2007
 
 =head1 NAME
 
@@ -38,9 +38,30 @@
  is to print a line with checksum, a character indicating type (`*'
  for binary, `?' for portable, ` ' for text), and name for each FILE.
 
+=head1 DESCRIPTION
+
+The I<shasum> script provides the easiest and most convenient way to
+compute SHA message digests.  Rather than writing a program, the user
+simply feeds data to the script via the command line, and waits for
+the results to be printed on standard output.  Data can be fed to
+I<shasum> through files, standard input, or both.
+
+The following command shows how easy it is to compute digests for typical
+inputs such as the NIST test vector "abc":
+
+	perl -e "print qw(abc)" | shasum
+
+Or, if you want to use SHA-256 instead of the default SHA-1, simply say:
+
+	perl -e "print qw(abc)" | shasum -a 256
+
+Since I<shasum> uses the same interface employed by the familiar
+I<sha1sum> program (and its somewhat outmoded anscestor I<md5sum>),
+you can install this script as a convenient drop-in replacement.
+
 =head1 AUTHOR
 
-Copyright (c) 2003-2006 Mark Shelor <mshelor at cpan.org>.
+Copyright (c) 2003-2007 Mark Shelor <mshelor at cpan.org>.
 
 =head1 SEE ALSO
 
@@ -50,9 +71,10 @@
 =cut
 
 use strict;
+use FileHandle;
 use Getopt::Long;
 
-my $VERSION = "5.44";
+my $VERSION = "5.45";
 
 
 	# Try to use Digest::SHA, since it's faster.  If not installed,
@@ -62,10 +84,10 @@
 my $MOD_SECOND = "Digest::SHA::PurePerl";
 
 my $module = $MOD_PREFER;
-eval "require $module";			## no critic
+eval "require $module";
 if ($@) {
 	$module = $MOD_SECOND;
-	eval "require $module";		## no critic
+	eval "require $module";
 	die "Unable to find $MOD_PREFER or $MOD_SECOND\n" if $@;
 }
 
@@ -118,7 +140,7 @@
 my ($alg, $binary, $check, $text, $status, $warn, $help, $version);
 my ($portable);
 
-Getopt::Long::Configure ("bundling");
+eval { Getopt::Long::Configure ("bundling") };
 GetOptions(
 	'b|binary' => \$binary, 'c|check' => \$check,
 	't|text' => \$text, 'a|algorithm=i' => \$alg,
@@ -198,10 +220,10 @@
 	my $checkfile = shift(@ARGV);
 	my ($err, $read_errs, $match_errs) = (0, 0, 0);
 	my ($num_files, $num_checksums) = (0, 0);
-	my ($fh, $sum, $fname, $rsp);
+	my ($fh, $sum, $fname, $rsp, $digest);
 
 	die "shasum: $checkfile: $!\n"
-		unless open($fh, "<$checkfile");	## no critic
+		unless $fh = FileHandle->new($checkfile, "r");
 	while (<$fh>) {
 		s/\s+$//;
 		($sum, $modesym, $fname) = /^(\S+) (.)(.*)$/;
@@ -213,7 +235,7 @@
 			next;
 		}
 		$rsp = "$fname: "; $num_files++;
-		unless (my $digest = sumfile($fname)) {
+		unless ($digest = sumfile($fname)) {
 			$rsp .= "FAILED open or read\n";
 			$err = 1; $read_errs++;
 		}
@@ -224,7 +246,7 @@
 		}
 		print $rsp unless $status;
 	}
-	close($fh);
+	$fh->close;
 	unless ($status) {
 		warn("shasum: WARNING: $read_errs of $num_files listed " .
 			"files could not be read\n") if $read_errs;
@@ -237,8 +259,10 @@
 
 	# Compute and display SHA checksums of requested files
 
-for my $file (@ARGV) {
-	if (my $digest = sumfile($file)) {
+my($file, $digest);
+
+for $file (@ARGV) {
+	if ($digest = sumfile($file)) {
 		print "$digest $modesym", "$file\n";
 	}
 }

Modified: packages/libdigest-sha-perl/trunk/src/hmac.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/src/hmac.c?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/src/hmac.c (original)
+++ packages/libdigest-sha-perl/trunk/src/hmac.c Sat Jul 14 20:49:08 2007
@@ -3,10 +3,10 @@
  *
  * Ref: FIPS PUB 198 The Keyed-Hash Message Authentication Code
  *
- * Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
  *
- * Version: 5.44
- * Sat Oct 14 00:42:44 MST 2006
+ * Version: 5.45
+ * Tue Jun 26 02:36:00 MST 2007
  *
  */
 

Modified: packages/libdigest-sha-perl/trunk/src/hmac.h
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/src/hmac.h?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/src/hmac.h (original)
+++ packages/libdigest-sha-perl/trunk/src/hmac.h Sat Jul 14 20:49:08 2007
@@ -3,10 +3,10 @@
  *
  * Ref: FIPS PUB 198 The Keyed-Hash Message Authentication Code
  *
- * Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
  *
- * Version: 5.44
- * Sat Oct 14 00:42:44 MST 2006
+ * Version: 5.45
+ * Tue Jun 26 02:36:00 MST 2007
  *
  */
 

Modified: packages/libdigest-sha-perl/trunk/src/hmacxtra.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/src/hmacxtra.c?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/src/hmacxtra.c (original)
+++ packages/libdigest-sha-perl/trunk/src/hmacxtra.c Sat Jul 14 20:49:08 2007
@@ -19,11 +19,11 @@
 	hmacwrite(bitstr, bitcnt, h);
 	hmacfinish(h);
 	if (fmt == SHA_FMT_RAW)
-		memcpy(digest, hmacdigest(h), h->osha->digestlen); 
+		memcpy(digest, hmacdigest(h), h->osha->digestlen);
 	else if (fmt == SHA_FMT_HEX)
-		strcpy((char *) digest, hmachex(h)); 
+		strcpy((char *) digest, hmachex(h));
 	else if (fmt == SHA_FMT_BASE64)
-		strcpy((char *) digest, hmacbase64(h)); 
+		strcpy((char *) digest, hmacbase64(h));
 	else
 		ret = NULL;
 	hmacclose(h);

Modified: packages/libdigest-sha-perl/trunk/src/sha.c
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/src/sha.c?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/src/sha.c (original)
+++ packages/libdigest-sha-perl/trunk/src/sha.c Sat Jul 14 20:49:08 2007
@@ -3,10 +3,10 @@
  *
  * Ref: NIST FIPS PUB 180-2 Secure Hash Standard
  *
- * Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
+ * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
  *
- * Version: 5.44
- * Sat Oct 14 00:42:44 MST 2006
+ * Version: 5.45
+ * Tue Jun 26 02:36:00 MST 2007
  *
  */
 
@@ -425,7 +425,7 @@
 }
 
 /* map: translation map for Base 64 encoding */
-static char map[] =		
+static char map[] =
 	"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
 
 /* encbase64: encodes input (0 to 3 bytes) into Base 64 */

Modified: packages/libdigest-sha-perl/trunk/src/sha.h
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libdigest-sha-perl/trunk/src/sha.h?rev=5791&op=diff
==============================================================================
--- packages/libdigest-sha-perl/trunk/src/sha.h (original)
+++ packages/libdigest-sha-perl/trunk/src/sha.h Sat Jul 14 20:49:08 2007
@@ -3,10 +3,10 @@
  *
  * Ref: NIST FIPS PUB 180-2 Secure Hash Standard
  *
- * Copyright (C) 2003-2006 Mark Shelor, All Rights Reserved
- *
- * Version: 5.44
- * Sat Oct 14 00:42:44 MST 2006
+ * Copyright (C) 2003-2007 Mark Shelor, All Rights Reserved
+ *
+ * Version: 5.45
+ * Tue Jun 26 02:36:00 MST 2007
  *
  */

More information about the Pkg-perl-cvs-commits mailing list