Change 33579: Don't call S_utf8_mg_pos_cache_update(), and hence don't even create

[Nicholas Clark]

Change 33579 by [EMAIL PROTECTED] on 2008/03/26 18:59:03

        Don't call S_utf8_mg_pos_cache_update(), and hence don't even create
        the magic for the UTF-8 cache, if the UTF-8 caching is disabled.

Affected files ...

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

Differences ...

==== //depot/perl/sv.c#1529 (text) ====
Index: perl/sv.c
--- perl/sv.c#1528~33563~       2008-03-25 04:36:22.000000000 -0700
+++ perl/sv.c   2008-03-26 11:59:03.000000000 -0700
@@ -5882,7 +5882,8 @@
        boffset = real_boffset;
     }
 
-    S_utf8_mg_pos_cache_update(aTHX_ sv, mgp, boffset, uoffset, send - start);
+    if (PL_utf8cache)
+       utf8_mg_pos_cache_update(sv, mgp, boffset, uoffset, send - start);
     return boffset;
 }
 
@@ -6237,7 +6238,8 @@
     }
     *offsetp = len;
 
-    S_utf8_mg_pos_cache_update(aTHX_ sv, &mg, byte, len, blen);
+    if (PL_utf8cache)
+       utf8_mg_pos_cache_update(sv, &mg, byte, len, blen);
 }
 
 /*
End of Patch.