Change 32763: Perl_sv_chop() can return early if it's being asked to do nothing.

[Nicholas Clark]

Change 32763 by [EMAIL PROTECTED] on 2007/12/29 13:33:38

        Perl_sv_chop() can return early if it's being asked to do nothing.

Affected files ...

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

Differences ...

==== //depot/perl/sv.c#1458 (text) ====
Index: perl/sv.c
--- perl/sv.c#1457~32751~       2007-12-28 01:59:06.000000000 -0800
+++ perl/sv.c   2007-12-29 05:33:38.000000000 -0800
@@ -4211,6 +4211,10 @@
     if (!ptr || !SvPOKp(sv))
        return;
     delta = ptr - SvPVX_const(sv);
+    if (!delta) {
+       /* Nothing to do.  */
+       return;
+    }
     SV_CHECK_THINKFIRST(sv);
     if (SvTYPE(sv) < SVt_PVIV)
        sv_upgrade(sv,SVt_PVIV);
End of Patch.