Index: src/modules/perl/modperl_util.c
===================================================================
RCS file: /home/cvspublic/modperl-2.0/src/modules/perl/modperl_util.c,v
retrieving revision 1.76
diff -w -u -p -r1.76 modperl_util.c
--- src/modules/perl/modperl_util.c	22 Aug 2004 20:47:37 -0000	1.76
+++ src/modules/perl/modperl_util.c	23 Aug 2004 00:41:58 -0000
@@ -214,13 +214,25 @@ void modperl_errsv_prepend(pTHX_ const c
 {
     SV *sv;
     va_list args;
+		STRLEN len;
+		char *s;
 
     va_start(args, pat);
     sv = vnewSVpvf(pat, &args);
     va_end(args);
 
     sv_catsv(sv, ERRSV);
-    sv_copypv(ERRSV, sv);
+		/* not in perl 5.6.1 */
+    /* sv_copypv(ERRSV, sv); */
+		/* Perl_sv_copypv(pTHX_ SV *dsv, register SV *ssv) */
+		s = SvPV(sv,len);
+		sv_setpvn(ERRSV,s,len);
+		if (SvUTF8(sv)) {
+			SvUTF8_on(ERRSV);
+		} else {
+			SvUTF8_off(ERRSV);
+		}
+		/* */
     sv_free(sv);
 }