r53429 - in /branches/upstream/libcrypt-saltedhash-perl/current: Changes META.yml Makefile.PL README lib/Crypt/SaltedHash.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Feb 28 20:24:09 UTC 2010
Author: jawnsy-guest
Date: Sun Feb 28 20:23:59 2010
New Revision: 53429
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=53429
Log:
[svn-upgrade] Integrating new upstream version, libcrypt-saltedhash-perl (0.06)
Modified:
branches/upstream/libcrypt-saltedhash-perl/current/Changes
branches/upstream/libcrypt-saltedhash-perl/current/META.yml
branches/upstream/libcrypt-saltedhash-perl/current/Makefile.PL
branches/upstream/libcrypt-saltedhash-perl/current/README
branches/upstream/libcrypt-saltedhash-perl/current/lib/Crypt/SaltedHash.pm
Modified: branches/upstream/libcrypt-saltedhash-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcrypt-saltedhash-perl/current/Changes?rev=53429&op=diff
==============================================================================
--- branches/upstream/libcrypt-saltedhash-perl/current/Changes (original)
+++ branches/upstream/libcrypt-saltedhash-perl/current/Changes Sun Feb 28 20:23:59 2010
@@ -1,6 +1,10 @@
Revision history for Perl extension Crypt::SaltedHash.
-0.05 Thu Aug 10 03:04>33 2006
+0.06 Sun Feb 28 01:55:22 2010
+ - added clear method
+ - add returns now $self
+
+0.05 Thu Aug 10 03:04:33 2006
- switched to Module::Build
0.04 Thu Jan 26 04:56:56 2006
Modified: branches/upstream/libcrypt-saltedhash-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcrypt-saltedhash-perl/current/META.yml?rev=53429&op=diff
==============================================================================
--- branches/upstream/libcrypt-saltedhash-perl/current/META.yml (original)
+++ branches/upstream/libcrypt-saltedhash-perl/current/META.yml Sun Feb 28 20:23:59 2010
@@ -1,6 +1,6 @@
---
name: Crypt-SaltedHash
-version: 0.05
+version: 0.06
author:
- 'Sascha Kiefer, L<esskar at cpan.org>'
abstract: |-
@@ -14,8 +14,8 @@
provides:
Crypt::SaltedHash:
file: lib/Crypt/SaltedHash.pm
- version: 0.05
-generated_by: Module::Build version 0.2801
+ version: 0.06
+generated_by: Module::Build version 0.280801
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.2.html
version: 1.2
Modified: branches/upstream/libcrypt-saltedhash-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcrypt-saltedhash-perl/current/Makefile.PL?rev=53429&op=diff
==============================================================================
--- branches/upstream/libcrypt-saltedhash-perl/current/Makefile.PL (original)
+++ branches/upstream/libcrypt-saltedhash-perl/current/Makefile.PL Sun Feb 28 20:23:59 2010
@@ -1,14 +1,14 @@
-# Note: this file was auto-generated by Module::Build::Compat version 0.03
+# Note: this file was auto-generated by Module::Build::Compat version 0.2808_01
use ExtUtils::MakeMaker;
WriteMakefile
(
- 'PL_FILES' => {},
- 'INSTALLDIRS' => 'site',
'NAME' => 'Crypt::SaltedHash',
- 'EXE_FILES' => [],
'VERSION_FROM' => 'lib/Crypt/SaltedHash.pm',
'PREREQ_PM' => {
'Digest' => '0'
- }
+ },
+ 'INSTALLDIRS' => 'site',
+ 'EXE_FILES' => [],
+ 'PL_FILES' => {}
)
;
Modified: branches/upstream/libcrypt-saltedhash-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcrypt-saltedhash-perl/current/README?rev=53429&op=diff
==============================================================================
--- branches/upstream/libcrypt-saltedhash-perl/current/README (original)
+++ branches/upstream/libcrypt-saltedhash-perl/current/README Sun Feb 28 20:23:59 2010
@@ -171,6 +171,9 @@
Logically joins the arguments into a single string, and uses it to
update the current digest state. For more details see Digest.
+ clear()
+ Resets the digest.
+
salt_bin()
Returns the salt in binary form.
@@ -206,7 +209,7 @@
(<http://www.securitydocs.com/library/3439>)
COPYRIGHT AND LICENSE
- Copyright (C) 2005 Sascha Kiefer
+ Copyright (C) 2010 Sascha Kiefer
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
Modified: branches/upstream/libcrypt-saltedhash-perl/current/lib/Crypt/SaltedHash.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcrypt-saltedhash-perl/current/lib/Crypt/SaltedHash.pm?rev=53429&op=diff
==============================================================================
--- branches/upstream/libcrypt-saltedhash-perl/current/lib/Crypt/SaltedHash.pm (original)
+++ branches/upstream/libcrypt-saltedhash-perl/current/lib/Crypt/SaltedHash.pm Sun Feb 28 20:23:59 2010
@@ -6,7 +6,7 @@
use vars qw($VERSION);
-$VERSION = '0.05';
+$VERSION = '0.06';
=head1 NAME
@@ -211,6 +211,19 @@
sub add {
my $self = shift;
$self->obj->add(@_);
+ return $self;
+}
+
+=item B<clear()>
+
+Resets the digest.
+
+=cut
+
+sub clear {
+ my $self = shift;
+ $self->{digest} = Digest->new( $self->{algorithm} );
+ return $self;
}
=item B<salt_bin()>
@@ -220,7 +233,7 @@
=cut
sub salt_bin {
- my ($self) = @_;
+ my $self = shift;
return $self->{salt} =~ m!^HEX{(.*)}$!i ? pack( "H*", $1 ) : $self->{salt};
}
@@ -232,7 +245,7 @@
=cut
sub salt_hex {
- my ($self) = @_;
+ my $self = shift;
return $self->{salt} =~ m!^HEX{(.*)}$!i
? $self->{salt}
@@ -248,14 +261,14 @@
=cut
sub generate {
- my ($self) = @_;
+ my $self = shift;
my $clone = $self->obj->clone;
my $salt = $self->salt_bin;
$clone->add($salt);
- my $gen = &MIME::Base64::encode_base64( $clone->digest . $salt, '' );
+ my $gen = &MIME::Base64::encode_base64( $clone->digest . $salt, '' );
my $scheme = $self->{scheme};
return "{$scheme}$gen";
@@ -300,7 +313,7 @@
=cut
sub obj {
- shift->{digest};
+ return shift->{digest};
}
=back
@@ -329,6 +342,7 @@
if ( $algorithm =~ m!^S(.*)$! ) {
$algorithm = $1;
+
# print STDERR "algorithm: $algorithm\n";
if ( $algorithm =~ m!([a-zA-Z]+)([0-9]+)! ) {
@@ -402,7 +416,7 @@
=head1 COPYRIGHT AND LICENSE
-Copyright (C) 2005 Sascha Kiefer
+Copyright (C) 2010 Sascha Kiefer
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
More information about the Pkg-perl-cvs-commits
mailing list