diff -r 3a8ae9117981 -r 77fd303f1a28 shelldap --- a/shelldap Sat Mar 05 20:19:18 2011 +0100 +++ b/shelldap Sat Mar 05 20:24:07 2011 +0100 @@ -748,22 +748,6 @@ return; } -# parse parent ('..') cn requests -# -sub parent_dn -{ - my $self = shift; - my $rdn = shift or return; - return unless ref $rdn; - - # FIXME: 'cd ../ou=somewhere' should work - my $dn = $self->base(); - my $dotcount = $$rdn =~ s/\.\./\.\./g; - $dn =~ s/^.*?,// for 1 .. $dotcount; - - $$rdn = $dn; -} - # given an array ref of shell-like globs, # make and return an LDAP filter object. #