From adb1bd2d12d6dd83098e0aa1137867629046e1da Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Wed, 3 Jul 2002 01:06:13 +0000 Subject: fix delete --- Echolot/Storage/File.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Echolot/Storage') diff --git a/Echolot/Storage/File.pm b/Echolot/Storage/File.pm index df7bcd5..31da00b 100644 --- a/Echolot/Storage/File.pm +++ b/Echolot/Storage/File.pm @@ -1,7 +1,7 @@ package Echolot::Storage::File; # (c) 2002 Peter Palfrader -# $Id: File.pm,v 1.22 2002/07/03 01:01:51 weasel Exp $ +# $Id: File.pm,v 1.23 2002/07/03 01:06:13 weasel Exp $ # =pod @@ -926,13 +926,13 @@ sub delete_remailer($$) { print "Deleting remailer $address\n" if Echolot::Config::get()->{'verbose'}; - unless (defined $self->{'METADATA'}->{'addresses'}->{$address}) { + if (defined $self->{'METADATA'}->{'addresses'}->{$address}) { delete $self->{'METADATA'}->{'addresses'}->{$address} } else { cluck("Remailer $address does not exist in addresses") }; - unless (defined $self->{'METADATA'}->{'remailers'}->{$address}) { + if (defined $self->{'METADATA'}->{'remailers'}->{$address}) { for my $type ( keys %{$self->{'METADATA'}->{'remailers'}->{$address}->{'keys'}} ) { for my $key ( keys %{$self->{'METADATA'}->{'remailers'}->{$address}->{'keys'}->{$type}} ) { -- cgit v1.2.3