Grab the second half of r10084 for cwd.t, which wasn't in change 33042.

[perl5.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index e0cefb0..9761488 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1,6 +1,6 @@
 /*    mathoms.c
  *
- *    Copyright (C) 2005, 2006, 2007, 2007, by Larry Wall and others
+ *    Copyright (C) 2005, 2006, 2007, 2008 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -1461,6 +1461,14 @@ Perl_newHV(pTHX)
     return hv;
 }
 
+void
+Perl_sv_insert(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, 
+              const char *const little, const STRLEN littlelen)
+{
+    PERL_ARGS_ASSERT_SV_INSERT;
+    sv_insert_flags(bigstr, offset, len, little, littlelen, SV_GMAGIC);
+}
+
 #endif /* NO_MATHOMS */
 
 /*