From: bulk 88 <bulk88@hotmail.com>
Date: Sat, 2 Jun 2012 00:41:58 +0000 (-0400)
Subject: Correct the code for structured exception handling on MSVC.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c35d132e8e9473718cd825e08aff0c782479044;p=p5sagit%2FDevel-Size.git

Correct the code for structured exception handling on MSVC.
---

diff --git a/CHANGES b/CHANGES
index 444da7b..915e16b 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,5 +1,8 @@
 Revision history for Perl extension Devel::Size.
 
+0.77_51 2012-07-17 nicholas
+ * Fix for MSVC builds from bulk 88 [CPAN #77589]
+
 0.77_50 2012-02-10 nicholas
  * t/globs.t was failing on 5.15.6 and later due to side effects of a change
    to strict.pm [CPAN #73998]
diff --git a/Size.xs b/Size.xs
index 1f22cb9..252dab2 100644
--- a/Size.xs
+++ b/Size.xs
@@ -41,7 +41,7 @@
     functionality on other platforms.  */
 #  include <excpt.h>
 #  define TRY_TO_CATCH_SEGV __try
-#  define CAUGHT_EXCEPTION __except(EXCEPTION EXCEPTION_EXECUTE_HANDLER)
+#  define CAUGHT_EXCEPTION __except(EXCEPTION_EXECUTE_HANDLER)
 #else
 #  define TRY_TO_CATCH_SEGV if(1)
 #  define CAUGHT_EXCEPTION else