Skip to content
Browse files

fix warning

  • Loading branch information...
1 parent a5f18af commit 6b02f18f2befeb8586a655550aca0530cc58f63e @matiu committed
Showing with 7 additions and 5 deletions.
  1. +7 −5 lib/SQL/Bibliosoph.pm
View
12 lib/SQL/Bibliosoph.pm
@@ -116,15 +116,17 @@ package SQL::Bibliosoph; {
if ( $self->memc() ) {
$self->d("Expiring group $group\n");
-
- my $md5s = $self->memc()->get($group . '-g');
- foreach (split /:/, $md5s) {
- next if ! $_;
+ if (my $md5s = $self->memc()->get($group . '-g') ) {
+
+ foreach (split /:/, $md5s) {
+ next if ! $_;
#$self->d("\t\t expiring query in group $group : $_");
- $self->memc()->delete($_);
+ $self->memc()->delete($_);
+ }
}
+
$self->memc()->delete( $group . '-g' );
}
else {

0 comments on commit 6b02f18

Please sign in to comment.
Something went wrong with that request. Please try again.