libreavous/lav-outils
libreavous/lav-outils
4
3
Fork 0
Code Issues Pull Requests Releases Activity

fix script utf8 reading json

Browse Source
This commit is contained in:
Quentin Gibeaux 2019-02-13 17:06:26 +01:00 committed by Quentin Gibeaux
parent d9da3e41f2
commit 01e3b7fbbc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
podcasts/scripts/make-all-podcasts.pl
View File

@ -38,7 +38,7 @@ sub read_config {
my ($filename) = @_; my ($filename) = @_;
my $json_text = do { #read all the file in one shot my $json_text = do { #read all the file in one shot
open(my $json_fh, "<:encoding(UTF-8)", $filename) open(my $json_fh, "<", $filename)
or die("Can't open \$filename\": $!\n"); or die("Can't open \$filename\": $!\n");
local $/; local $/;
<$json_fh> <$json_fh>