Skip Menu |

This queue is for tickets about the Crypt-SaltedHash CPAN distribution.

Report information
The Basics
Id: 78505
Status: resolved
Priority: 0/
Queue: Crypt-SaltedHash

People
Owner: Nobody in particular
Requestors: wyant [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.06
Fixed in: 0.09



Subject: Noisy tests (Unescaped left brace in regex is deprecated)
Perl 5.17 deprecates unescaped literal left braces in regular expressions, issuing a warning when they are found. The attached patch suppresses this warning. I have called this unimportant because it is only a warning, and in a development release at that.
Except I forgot to attach the patch. Here it is.
Subject: Crypt-SaltedHash.patch
--- lib/Crypt/SaltedHash.old 2010-02-27 16:53:23.000000000 -0500 +++ lib/Crypt/SaltedHash.pm 2012-07-21 12:25:42.000000000 -0400 @@ -235,7 +235,7 @@ sub salt_bin { my $self = shift; - return $self->{salt} =~ m!^HEX{(.*)}$!i ? pack( "H*", $1 ) : $self->{salt}; + return $self->{salt} =~ m!^HEX\{(.*)\}$!i ? pack( "H*", $1 ) : $self->{salt}; } =item B<salt_hex()> @@ -247,7 +247,7 @@ sub salt_hex { my $self = shift; - return $self->{salt} =~ m!^HEX{(.*)}$!i + return $self->{salt} =~ m!^HEX\{(.*)\}$!i ? $self->{salt} : 'HEX{' . join( '', unpack( 'H*', $self->{salt} ) ) . '}'; }