Fixes #4634 Fixed migrate-dns for PTR records

contrib/bin/fusiondirectory-setup

@@ -1373,12 +1373,12 @@ sub migrate_dns {
         @entries = $mesg->entries;
 
         foreach my $entry (@entries) {
-          $entry->dn() =~ m/^([^,]+),(relativeDomainName=[^,]+),([^,]+,$zoneDn)$/ or next;
+          $entry->dn() =~ m/^([^,]+),relativeDomainName=[^,]+,$zoneDn$/ or next;
           $result = $ldap->moddn (
             $entry->dn(),
             newrdn        => $1,
             deleteoldrdn  => '1',
-            newsuperior   => $2
+            newsuperior   => 'zoneName='.$entry->get_value('zoneName').','.$zoneDn
           );
           $result->code && die "Migration of DNS reverse zone subentry ".$entry->dn()." failed, LDAP error: ".$result->error."\n";
         }