bcc was issuing a warning about this line in Perl_sv_2cv, so tweak it

to keep it happy.

p4raw-id: //depot/perl@27086

diff --git a/sv.c b/sv.c
index a915dd9..752dff0 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -6992,8 +6992,11 @@ Perl_sv_2cv(pTHX_ SV *sv, HV **st, GV **gvp, I32 lref)
     GV *gv = NULL;
     CV *cv = NULL;
 
-    if (!sv)
-       return *st = NULL, *gvp = NULL, NULL;
+    if (!sv) {
+       *st = NULL;
+       *gvp = NULL;
+       return NULL;
+    }
     switch (SvTYPE(sv)) {
     case SVt_PVCV:
        *st = CvSTASH(sv);