]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Prefer STMT_{START,END} over do/while(0)
authorVincent Pit <vince@profvince.com>
Mon, 29 Dec 2008 00:08:07 +0000 (01:08 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 29 Dec 2008 00:08:07 +0000 (01:08 +0100)
Upper.xs

index 264bfdad3b712a7d3423a9a49c98e82c4ba838b3..801f719963491eefa200c25ea0f2835984a71b48 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
@@ -165,10 +165,10 @@ typedef struct {
 #define SU_UD_ORIGIN(U)  (((su_ud_common *) (U))->origin)
 #define SU_UD_HANDLER(U) (((su_ud_common *) (U))->handler)
 
-#define SU_UD_FREE(U) do { \
+#define SU_UD_FREE(U) STMT_START { \
  if (SU_UD_ORIGIN(U)) Safefree(SU_UD_ORIGIN(U)); \
  Safefree(U); \
-} while (0)
+} STMT_END
 
 /* ... Reap ................................................................ */