diff --git a/podcasts/scripts/make-all-podcasts.pl b/podcasts/scripts/make-all-podcasts.pl index fbc125c..dab1743 100755 --- a/podcasts/scripts/make-all-podcasts.pl +++ b/podcasts/scripts/make-all-podcasts.pl @@ -256,8 +256,9 @@ sub process { $textwebpage = $textwebpage . "\n\n"; binmode(STDOUT, ":utf8"); - my $url = "https://www.april.org/libre-a-vous-diffusee-mardi-$long_date-sur-radio-cause-commune"; - $url=~s/ /-/g; + my $url = "https://www.april.org/libre-a-vous-diffusee-mardi-$long_date-sur-radio-cause-commune"; + my $url = "https://www.april.org/libre-a-vous-diffusee-mardi-$long_date-sur-radio-cause-commune"; + $url=~s/ /-/g; print "\nText for the web page of the radio program : $url\n\n"; print "$textwebpage\n\n";