diff options
Diffstat (limited to 'ext/PerlIO/encoding/encoding.xs')
| -rw-r--r-- | ext/PerlIO/encoding/encoding.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/PerlIO/encoding/encoding.xs b/ext/PerlIO/encoding/encoding.xs index d4b47cf612..362d66cd84 100644 --- a/ext/PerlIO/encoding/encoding.xs +++ b/ext/PerlIO/encoding/encoding.xs @@ -255,7 +255,7 @@ PerlIOEncode_fill(pTHX_ PerlIO * f) STDCHAR *ptr = PerlIO_get_ptr(n); SSize_t use = (avail >= 0) ? avail : 0; SV *uni; - char *s; + char *s = Nullch; STRLEN len = 0; e->base.ptr = e->base.end = (STDCHAR *) Nullch; (void) PerlIOEncode_get_base(aTHX_ f); |