Change sv_setpvn(…, "…", …) to sv_setpvs(…, "…")

The dual-life dists affected use Devel::PPPort, so can safely use
sv_setpvs() even though it wasn't added until Perl v5.10.0.

1 files changed, 1 insertions, 1 deletions

diff --git a/doop.c b/doop.c
index e6c7fe4aa7..79cf4b6006 100644
--- a/doop.c
+++ b/doop.c
@@ -1008,7 +1008,7 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
     PERL_ARGS_ASSERT_DO_VOP;
 
     if (sv != left || (optype != OP_BIT_AND && !SvOK(sv)))
-        sv_setpvn(sv, "", 0);        /* avoid undef warning on |= and ^= */
+        sv_setpvs(sv, "");        /* avoid undef warning on |= and ^= */
     if (sv == left) {
 	lsave = lc = SvPV_force_nomg(left, leftlen);
     }