--- trunk/Split.pm 2005/04/29 22:51:58 12 +++ trunk/Split.pm 2005/04/29 23:25:02 13 @@ -159,6 +159,8 @@ $i->delete(@swishpath); +B + =cut sub delete { @@ -170,6 +172,8 @@ $self->{'paths'}->{$path} = DELETED; } + die "delete is not yet implemented"; + return 42; }