[perl #51370] length($@)>0 for empty $@ if utf8 is in use

From: "Bram via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-18229-1213179984-1708.51370-15-0@perl.org>

(The first patch)

p4raw-id: //depot/perl@34068

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index c314cafb16..d18e6da2c7 100644
--- a/op.c
+++ b/op.c
@@ -2521,7 +2521,7 @@ Perl_fold_constants(pTHX_ register OP *o)
     case 3:
 	/* Something tried to die.  Abandon constant folding.  */
 	/* Pretend the error never happened.  */
-	sv_setpvn(ERRSV,"",0);
+        clear_errsv();
 	o->op_next = old_next;
 	break;
     default: