summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-01-24 15:35:12 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-01-24 15:35:12 +0000
commitc00206c8463e3564bde598f9aa9e8be52b3f27e3 (patch)
tree6246012063f6a44941350e23856e345139b11c5c /mg.c
parent56e90b21f82f04af4f0a1a957067569857cd0ce2 (diff)
downloadperl-c00206c8463e3564bde598f9aa9e8be52b3f27e3.tar.gz
assorted little nits
p4raw-id: //depot/perl@4882
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/mg.c b/mg.c
index fb2b8f173d..4274a20149 100644
--- a/mg.c
+++ b/mg.c
@@ -1238,7 +1238,7 @@ Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg)
SV* lsv = LvTARG(sv);
SSize_t pos;
STRLEN len;
- STRLEN ulen;
+ STRLEN ulen = 0;
dTHR;
mg = 0;
@@ -1263,8 +1263,6 @@ Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg)
ulen = sv_len_utf8(lsv);
if (ulen)
len = ulen;
- else
- ulen = 0;
}
if (pos < 0) {