frfac: loosen regex strictness on mp3 file name

This goes with the rfi's changes causing the change
a couple commits back.
This commit is contained in:
Mike Small 2020-11-26 12:16:34 -05:00
parent 04b8b041da
commit 217d36215e

View File

@ -43,7 +43,7 @@ my $latest_episode = pop @episode_links;
my @mp3s;
sub collect_mp3s {
my ($uri, $uri_text) = @_;
push @mp3s, $uri_text if $uri_text =~ /facile_\d+\.mp3$/;
push @mp3s, $uri_text if $uri_text =~ /facile_\d+.*\d+\.mp3$/;
}
$res = URI::Fetch->fetch($latest_episode) or die URI::Fetch->errstr;