diff options
| -rwxr-xr-x | tools/gen_frikanalen_video.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tools/gen_frikanalen_video.pl b/tools/gen_frikanalen_video.pl index 1a79e14..d01bd15 100755 --- a/tools/gen_frikanalen_video.pl +++ b/tools/gen_frikanalen_video.pl @@ -134,7 +134,9 @@ sub read_meta { while (<M>) { chomp; my @l = split("=",$_); - $ret->{$l[0]} = $l[1]; + if (defined $l[1]) { + $ret->{$l[0]} = $l[1]; + } } close M; return $ret; @@ -154,7 +156,7 @@ sub break_title { my $cols = 30; my $count = 0 ; my $ln = 0; - my @lines; + my @lines = ('', '', '', ''); my @words = split(" ",$title); foreach my $word (@words) { $count += count_words_n_space($word); |