• Trying to use Carp (for processing errors) can segfault perl when t…

…he error is with syntax. Don't attempt to process syntax errors. See here: http://www.xav.com/perl/lib/Pod/perlvar.html

git-svn-id: http://svn.textmate.org/trunk/Bundles/Perl.tmbundle@7052 dfb7d73b-c2ec-0310-8fea-fb051d288c6d

Support/PerlMate/exception_handler.pm

@@ -116,11 +116,10 @@ sub tm_die {
   if (ineval()) {
       realdie ($arg,@rest) if ineval();
   }
-  if (!ref($arg)) {
+  if (!ref($arg) and $^S) {
     print TM_ERROR_FD longmess($arg,@rest);
+    exit($^S);
   }
-
-  exit($!);
 }
 
 1;