for my $exception (@exceptions) {
    if ($@ =~ /$exception->{error}/) {
      $exception->{action}( &LogMsg( \( "Error", "In action "     .
                                        "$object_hash{name}: "    .
                                        "$exception->{message}\n"
                                      )
                                   ), "\n"
                          );
    }
  }