summaryrefslogtreecommitdiff
path: root/mro.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-19 15:06:53 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-04-19 15:06:53 +0000
commit9edc5bb88e22f179a8e93ef946255446e35178fa (patch)
treedef934a48ffd5c11a485825e15b6d04843463aa8 /mro.c
parentf40a71547d2bd6a615ed0adc05312d62f7dffc29 (diff)
downloadperl-9edc5bb88e22f179a8e93ef946255446e35178fa.tar.gz
Fix compilation error with threads
p4raw-id: //depot/perl@30984
Diffstat (limited to 'mro.c')
-rw-r--r--mro.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/mro.c b/mro.c
index b6c4db8ea5..7535c06797 100644
--- 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)