diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-03 01:06:13 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-03 01:06:13 +0000 |
| commit | adb1bd2d12d6dd83098e0aa1137867629046e1da (patch) | |
| tree | d128ec52c4ac425948243e3472493fb0056d1a30 | |
| parent | 957ade1c050617e21d99645c1498a282d705ee95 (diff) | |
fix delete
| -rw-r--r-- | Echolot/Storage/File.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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 <peter@palfrader.org> -# $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}} ) { |