From ef75a179103f867668cdc0e80c863551b9a84c82 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 27 Feb 2000 14:31:24 +0000
Subject: avoid compiler warnings (from Dan Sugalski)

p4raw-id: //depot/perl@5284
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index 592d16a530..ed5a7eb510 100644
--- a/op.c
+++ b/op.c
@@ -204,7 +204,7 @@ Perl_pad_allocmy(pTHX_ char *name)
     }
     if (PL_in_my == KEY_our) {
 	(void)SvUPGRADE(sv, SVt_PVGV);
-	GvSTASH(sv) = (HV*)SvREFCNT_inc(PL_curstash ? PL_curstash : PL_defstash);
+	GvSTASH(sv) = (HV*)SvREFCNT_inc(PL_curstash ? (SV*)PL_curstash : (SV*)PL_defstash);
 	SvFLAGS(sv) |= SVpad_OUR;
     }
     av_store(PL_comppad_name, off, sv);
-- 
cgit v1.2.1