From 02cca5227d27be45b6df8b4d147c91d35f557446 Mon Sep 17 00:00:00 2001 From: "peter@adpm.de" Date: Sat, 5 Mar 2011 19:24:06 +0000 Subject: [PATCH] remove now unused parent_dn() method FossilOrigin-Name: 05511ce76336be27ff3bf1637e65aa6ba79c7fa9b624734ecfb3b464dd3c06d9 --- shelldap | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/shelldap b/shelldap index f02767d..b5b9b58 100755 --- a/shelldap +++ b/shelldap @@ -748,22 +748,6 @@ sub update_entries 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. #