Ignore harmless errors.

bin/gtk-straw-viewer

@@ -379,27 +379,30 @@ 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);
 };
 
 # __DIE__ handle
 local $SIG{__DIE__} = sub {
-    my $error  = join('', @_);
     my $caller = [caller]->[0];
+    my $error  = strip_spaces(join('', @_));
+
+    say STDERR $error;
 
-    # Ignore eval() errors
+    # Ignore harmless errors
     return if $error =~ / at \(eval /;
+    return if $error =~ /, or \} expected while parsing object\/hash/;
 
-    # Just print the third-party errors,
-    # without displaying them to the user.
+    # Ignore third-party errors
     if (not $caller =~ /^(?:main\z|WWW::StrawViewer\b)/) {
-        print STDERR "@_\n";
         return;
     }
 
@@ -415,6 +418,7 @@ local $SIG{__DIE__} = sub {
           }
           . "\n=>> Previous warnings:\n" . get_text($warnings_textview)
     );
+
     warn $error;
     $errors_window->show;
     return 1;