Updated Encode to CPAN release 2.38

[p5sagit/p5-mst-13.2.git] / cpan / Encode / Unicode / Unicode.xs

diff --git a/cpan/Encode/Unicode/Unicode.xs b/cpan/Encode/Unicode/Unicode.xs
index 1f041d4..d8ef569 100644 (file)
--- a/cpan/Encode/Unicode/Unicode.xs
+++ b/cpan/Encode/Unicode/Unicode.xs
@@ -1,5 +1,5 @@
 /*
- $Id: Unicode.xs,v 2.5 2009/02/01 13:14:41 dankogai Exp $
+ $Id: Unicode.xs,v 2.6 2009/11/16 14:08:13 dankogai Exp dankogai $
  */
 
 #define PERL_NO_GET_CONTEXT
@@ -377,5 +377,7 @@ CODE:
     if (!temp_result)
        shrink_buffer(result);
 
+    SvSETMAGIC(utf8);
+
     XSRETURN(1);
 }