diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-17 21:38:38 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-17 21:38:38 +0000 |
| commit | 235bddc8d16c512a7d89f327f65cee68b1f5848c (patch) | |
| tree | abde42bcf0d35975c6d585f20fafb02e8ed4ff81 /mg.c | |
| parent | fc87b71cde2dcc7c5c2201d512e38000eb8087ab (diff) | |
| download | perl-235bddc8d16c512a7d89f327f65cee68b1f5848c.tar.gz | |
Integrate mainline (for ndbm fixes etc.)
p4raw-id: //depot/perlio@14312
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 8 |
1 files changed, 8 insertions, 0 deletions
@@ -458,6 +458,14 @@ Perl_magic_len(pTHX_ SV *sv, MAGIC *mg) Perl_croak(aTHX_ "panic: magic_len: %"IVdf, (IV)i); return i; } + else { + if (ckWARN(WARN_UNINITIALIZED)) + report_uninit(); + } + } + else { + if (ckWARN(WARN_UNINITIALIZED)) + report_uninit(); } return 0; case '+': |