Correct the code for structured exception handling on MSVC.

diff --git a/CHANGES b/CHANGES
index 444da7b..915e16b 100644 (file)
--- 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 (file)
--- 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