From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 4 Feb 2006 22:51:17 +0000 (+0000)
Subject: bcc was issuing a warning about this line in Perl_sv_2cv, so tweak it
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85dec29a83aced8b747bed98a9d9b9fada93229a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);