perltodo.pod: error message todo

[perl5.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index 17eb6f2..57fa328 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -648,13 +648,14 @@ PP(pp_add)
     }
 #endif
     {
-       dPOPnv;
+       NV value = SvNV(svr);
+       (void)POPs;
        if (!useleft) {
            /* left operand is undef, treat as zero. + 0.0 is identity. */
            SETn(value);
            RETURN;
        }
-       SETn( value + TOPn );
+       SETn( value + SvNV(svl) );
        RETURN;
     }
 }