summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorAbhijit Menon-Sen <ams@wiw.org>2001-05-31 13:57:55 +0530
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-31 11:53:31 +0000
commit13689cfe324c4b1548f53eda346b78570974f93e (patch)
tree7bc2ade781aa92ea23017511eff44bc701ed67ed /gv.c
parent498da23314c054dd8ab00be8b23dc0d93c7c7bbb (diff)
downloadperl-13689cfe324c4b1548f53eda346b78570974f93e.tar.gz
-Wall cleanups: perl.c, gv.c, Storable.xs
Message-ID: <20010531082755.A10018@lustre.linux.in> p4raw-id: //depot/perl@10352
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index b0380318c0..c0f0d93f80 100644
--- a/gv.c
+++ b/gv.c
@@ -1360,7 +1360,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
AMT *amtp=NULL, *oamtp=NULL;
int fl=0, off=0, off1, lr=0, assign=AMGf_assign & flags, notfound=0;
int postpr = 0, force_cpy = 0, assignshift = assign ? 1 : 0;
- HV* stash;
+ HV* stash=NULL;
if (!(AMGf_noleft & flags) && SvAMAGIC(left)
&& (mg = mg_find((SV*)(stash=SvSTASH(SvRV(left))),
PERL_MAGIC_overload_table))