Permalink
Browse files

fix small bug in cache key

  • Loading branch information...
1 parent 6b02f18 commit a2e72977dbbde685582e9d284497fb069ee13a58 @devely devely committed Mar 1, 2012
Showing with 3 additions and 3 deletions.
  1. +1 −1 README
  2. +2 −2 lib/SQL/Bibliosoph.pm
View
2 README
@@ -10,7 +10,7 @@ INSTALL
make install
COPYRIGHT
- Copyright (c) 2007-2009 Matias Alejo Garcia. All rights reserved.
+ Copyright (c) 2007-2012 Matias Alejo Garcia. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
View
4 lib/SQL/Bibliosoph.pm
@@ -251,7 +251,7 @@ package SQL::Bibliosoph; {
## check memcached
- my $md5 = md5_hex( join ('', $name, map { $_ // 'NULL' } @_ ));
+ my $md5 = md5_hex( join (',', $name, map { $_ // 'NULL' } @_ ));
my $ret;
@@ -343,7 +343,7 @@ package SQL::Bibliosoph; {
}
my ($val, $count);
- my $md5 = md5_hex( join ('', $name, map { $_ // 'NULL' } @_ ));
+ my $md5 = md5_hex( join (',', $name, map { $_ // 'NULL' } @_ ));
my $md5c = $md5 . '_count';
if (! $cfg->{force} ) {

0 comments on commit a2e7297

Please sign in to comment.