Correct stupidities in 4c3ac4b

Allocating an extra SV for rare edge cases...er...only needs to be
done in those rare edge cases.

Uninitialized warnings are only supposed to be enabled when they are.

1 files changed, 5 insertions, 2 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 3d46287c7a..06b837bf15 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -501,10 +501,13 @@ PP(pp_add)
     svl = TOPm1s;
 
     useleft = USE_LEFT(svl);
-    if(useleft && svr == svl) {
+    if(useleft && svr == svl && SvGMAGICAL(svl)) {
 	/* Print the uninitialized warning now, so it includes the vari-
 	   able name. */
-	if (!SvOK(svl)) report_uninit(svl), useleft = 0;
+	if (!SvOK(svl)) {
+	    if (ckWARN(WARN_UNINITIALIZED)) report_uninit(svl);
+	    useleft = 0;
+	}
 	/* Non-magical sv_mortalcopy */
 	svl = sv_newmortal();
 	sv_setsv_flags(svl, svr, 0);