Avoid join(':',%$self) warnings
authorKyle J. McKay <mackyle@gmail.com>
Thu, 18 Jul 2013 22:43:10 +0000 (18 15:43 -0700)
committerKyle J. McKay <mackyle@gmail.com>
Thu, 18 Jul 2013 22:43:10 +0000 (18 15:43 -0700)
The join(':',%$self) expression is used to help produce more
varied input to the hash function.  Occasionally some of the
keys stored in %$self have undefined values.  Since that's not
important in this context, squelch the warnings.

Girocco/Project.pm
Girocco/User.pm

index e4e6306..741c85f 100644 (file)
@@ -684,7 +684,10 @@ sub set_HEAD {
 sub gen_auth {
        my $self = shift;
 
-       $self->{auth} = sha1_hex(time . $$ . rand() . join(':',%$self));
+       {
+               no warnings;
+               $self->{auth} = sha1_hex(time . $$ . rand() . join(':',%$self));
+       }
        my $expire = time + 24 * 3600;
        my $propval = "# DELAUTH $self->{auth} $expire";
        system('git', '--git-dir='.$self->{path}, 'config', 'gitweb.delauth', $propval);
index 525affa..4429f9d 100644 (file)
@@ -34,7 +34,11 @@ sub _gen_uuid {
        my $self = shift;
 
        $self->{uuid} = '' unless $self->{uuid};
-       my @md5 = unpack('C*', md5(time . $$ . rand() . join(':',%$self)));
+       my @md5;
+       {
+               no warnings;
+               @md5 = unpack('C*', md5(time . $$ . rand() . join(':',%$self)));
+       }
        $md5[6] = 0x40 | ($md5[6] & 0x0F); # Version 4 -- random
        $md5[8] = 0x80 | ($md5[8] & 0x3F); # RFC 4122 specification
        return sprintf(