Include variable names in "Use of uninitialized value" warnings

[perl.git] / mg.c

diff --git a/mg.c b/mg.c
index d86e22d..d162cd3 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -491,12 +491,12 @@ Perl_magic_len(pTHX_ SV *sv, MAGIC *mg)
            }
            else {
                if (ckWARN(WARN_UNINITIALIZED))
-                   report_uninit();
+                   report_uninit(sv);
            }
        }
        else {
            if (ckWARN(WARN_UNINITIALIZED))
-               report_uninit();
+               report_uninit(sv);
        }
        return 0;
     case '+':