X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FMeta%2FTypeConstraint%2FAutocoerce.pm;h=165794c8740db2604c54c43967792440b4df560d;hp=9c65f364c181cbcd19bfdbeed1e4802ef2e74f49;hb=a8c5cc8217c83c853306a8f89879471c09b84210;hpb=d9b3236d7adf9b87cebe8f956539469d42b9aef9

diff --git a/lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm b/lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm
index 9c65f36..165794c 100644
--- a/lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm
+++ b/lib/LaTeX/TikZ/Meta/TypeConstraint/Autocoerce.pm
@@ -121,7 +121,14 @@ sub load {
  return 0 if $INC{$pm}; # already loaded
 
  local $@;
- eval { require $pm; 1 };
+ eval {
+  # We die often here, even though we're not really interested in the error.
+  # However, if a die handler is set (e.g. to \&Carp::confess), this can get
+  # very slow. Resetting the handler shows a 10% total time improvement for the
+  # geodyn app.
+  local $SIG{__DIE__};
+  require $pm;
+ };
 
  return 0;
 }