diff --git a/src/functions.pl b/src/functions.pl index 3a666b7..30872ab 100644 --- a/src/functions.pl +++ b/src/functions.pl @@ -408,7 +408,7 @@ sub mbz_raw_download { # find out the latest NGS my $latest = ""; print "Logging into MusicBrainz FTP ($host)...\n"; - my $ftp = Net::FTP->new($host, Timeout => 60) + my $ftp = Net::FTP->new($host, Timeout => 60, Passive => 1) or die "Cannot contact $host: $!"; $ftp->login('anonymous') or die "Can't login ($host): " . $ftp->message; $ftp->cwd('/pub/musicbrainz/data/fullexport/')