This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix compilation error with threads
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 19 Apr 2007 15:06:53 +0000 (15:06 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 19 Apr 2007 15:06:53 +0000 (15:06 +0000)
p4raw-id: //depot/perl@30984

mro.c

diff --git a/mro.c b/mro.c
index b6c4db8..7535c06 100644 (file)
--- a/mro.c
+++ b/mro.c
@@ -864,9 +864,10 @@ XS(XS_mro_is_universal)
     class_stash = gv_stashsv(classname, 0);
     if(!class_stash) Perl_croak(aTHX_ "No such class: '%"SVf"'!", SVfARG(classname));
 
-    HvMROMETA(class_stash)->is_universal
-        ? XSRETURN_YES
-        : XSRETURN_NO;
+    if (HvMROMETA(class_stash)->is_universal)
+        XSRETURN_YES;
+    else
+        XSRETURN_NO;
 }
 
 XS(XS_mro_get_global_sub_generation)