diff --git a/lib/PAUSE.pm b/lib/PAUSE.pm
index afe6dffb2..47ab93003 100644
--- a/lib/PAUSE.pm
+++ b/lib/PAUSE.pm
@@ -68,10 +68,6 @@ push @INC, $pauselib;
 
 $PAUSE::Config ||=
     {
-     # previously also used for ftp password; still used in Error as
-     # contact address and as address to send internal notifications
-     # to:
-     FTP_RUN => qq{/home/ftp/run},
      ABRA_EXPIRATION => 86400/4,
      ADMIN => q{andreas.koenig.gmwojprw+pause@franz.ak.mind.de, neilb@neilb.org},
      ADMINS => [qq(modules\@perl.org)],
diff --git a/lib/PAUSE/mldistwatch.pm b/lib/PAUSE/mldistwatch.pm
index 9b5e85943..1f2c2b0c7 100644
--- a/lib/PAUSE/mldistwatch.pm
+++ b/lib/PAUSE/mldistwatch.pm
@@ -165,7 +165,6 @@ sub rewrite_indexes {
     $self->rewrite01();
     $self->rewrite03();
     $self->rewrite06();
-    $self->rewrite07();
     $Logger->log("finished rewriting indexes");
 
     $self->git->commit({ m => "indexer run at $^T, pid $$" })
@@ -1330,26 +1329,6 @@ Date:        %s
     }
 }
 
-sub rewrite07 {
-    my($self) = @_;
-    my $fromdir = $PAUSE::Config->{FTP_RUN} or $Logger->log("FTP_RUN not defined");
-    $fromdir .= "/mirroryaml";
-    -d $fromdir or $Logger->log("FTP_RUN directory [$fromdir] does not exist");
-    my $mlroot = $self->mlroot or $Logger->log("MLROOT not defined");
-    my $todir = "$mlroot/../../modules";
-    -d $todir or $Logger->log("mirror list target directory [$todir] does not exist");
-    for my $exte (qw(json yml)) {
-        my $f = "$fromdir/mirror.$exte";
-        my $t = "$todir/07mirror.$exte";
-        next unless -e $f;
-        rename $f, $t or $Logger->log([
-          "couldn't rename: %s",
-          { old => $f, new => $t, err => "$!" },
-        ]);
-        PAUSE::newfile_hook($t);
-    }
-}
-
 sub chdir_ln_chdir {
     my ($self, $postdir, $link_target, $link_name, $log) = @_;
     chdir $postdir or die "Couln't chdir to $postdir";