Ignore the harmless warning "[JSON] , or } expected while parsing obj…

…ect/hash".
trizen · Jun 19, 2020 · b9bfb84 · b9bfb84
1 parent 9398610
commit b9bfb84
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 3 deletions.
diff --git a/bin/gtk2-youtube-viewer b/bin/gtk2-youtube-viewer
@@ -363,11 +363,13 @@ while (my ($key, $value) = each %objects) {
 local $SIG{__WARN__} = sub {
     my $warning = strip_spaces(join('', @_));
 
+    say STDERR $warning;
+
     return if $warning =~ / at \(eval /;
     return if $warning =~ /\bunhandled exception in callback:/;
+    return if $warning =~ /, or \} expected while parsing object\/hash/;
 
     $warning = "[" . localtime(time) . "]: " . $warning . "\n";
-    print STDERR $warning;
 
     set_text($warnings_textview, $warning, append => 1);
 };

diff --git a/bin/gtk3-youtube-viewer b/bin/gtk3-youtube-viewer
@@ -375,11 +375,13 @@ while (my ($key, $value) = each %objects) {
 local $SIG{__WARN__} = sub {
     my $warning = strip_spaces(join('', @_));
 
+    say STDERR $warning;
+
     return if $warning =~ / at \(eval /;
     return if $warning =~ /\bunhandled exception in callback:/;
+    return if $warning =~ /, or \} expected while parsing object\/hash/;
 
     $warning = "[" . localtime(time) . "]: " . $warning . "\n";
-    print STDERR $warning;
 
     set_text($warnings_textview, $warning, append => 1);
 };

diff --git a/bin/youtube-viewer b/bin/youtube-viewer
@@ -409,7 +409,7 @@ EOD
 
         my $dumped_config = q{our $CONFIG = } . Data::Dump::pp(\%CONFIG) . "\n";
 
-        if ($home_dir eq $ENV{HOME}) {
+        if (defined($ENV{HOME}) and $home_dir eq $ENV{HOME}) {
             $dumped_config =~ s/\Q$home_dir\E/\$ENV{HOME}/g;
         }