summaryrefslogtreecommitdiff
path: root/Echolot/Storage/File.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-03 01:06:13 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-03 01:06:13 +0000
commitadb1bd2d12d6dd83098e0aa1137867629046e1da (patch)
treed128ec52c4ac425948243e3472493fb0056d1a30 /Echolot/Storage/File.pm
parent957ade1c050617e21d99645c1498a282d705ee95 (diff)
fix delete
Diffstat (limited to 'Echolot/Storage/File.pm')
-rw-r--r--Echolot/Storage/File.pm6
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}} ) {