Change 14859: Re: [PATCH] Re: Copying PV only with possible UTF-8 characters

[Jarkko Hietaniemi]

Change 14859 by jhi@alpha on 2002/02/25 03:02:23

        Subject: Re: [PATCH] Re: Copying PV only with possible UTF-8 characters
        From: John Peacock <[EMAIL PROTECTED]>
        Date: Sun, 24 Feb 2002 22:08:28 -0500
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/sv.c#519 edit

Differences ...

==== //depot/perl/sv.c#519 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~       Sun Feb 24 20:15:05 2002
+++ perl/sv.c   Sun Feb 24 20:15:05 2002
@@ -3168,8 +3168,10 @@
 
     if ( SvTHINKFIRST(ssv) && SvROK(ssv) && SvAMAGIC(ssv) ) {
        tmpsv = AMG_CALLun(ssv,string);
-       if (SvTYPE(tmpsv) != SVt_RV || (SvRV(tmpsv) != SvRV(ssv)))
+       if (SvTYPE(tmpsv) != SVt_RV || (SvRV(tmpsv) != SvRV(ssv))) {
            SvSetSV(dsv,tmpsv);
+           return;
+       }
     }
     {
        STRLEN len;
End of Patch.