Added array number to mdelete() arguments.
This commit is contained in:
1 parent
049ef3f4bf
commit
7a71b5a50a
1 file changed
+3
-3
+3
-3
@@ -120,10 +120,10 @@ sub mwrite
|
|||||||
# Delete from database.
|
# Delete from database.
|
||||||
sub mdelete
|
sub mdelete
|
||||||
{
|
{
|
||||||
my ($name) = @_;
|
my ($name, $i) = @_;
|
||||||
|
|
||||||
if (defined $MEM{$name}) {
|
if (defined $MEM{$name}[$i]) {
|
||||||
delete $MEM{$name};
|
delete $MEM{$name}[$i];
|
||||||
}
|
}
|
||||||
|
|
||||||
return 1;
|
return 1;
|
||||||
|
|||||||
Reference in new issue
Block a user