diff options
Diffstat (limited to 'cpan/Encode/Unicode')
-rw-r--r-- | cpan/Encode/Unicode/Unicode.pm | 4 | ||||
-rw-r--r-- | cpan/Encode/Unicode/Unicode.xs | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/cpan/Encode/Unicode/Unicode.pm b/cpan/Encode/Unicode/Unicode.pm index 16982bbb16..f71567c619 100644 --- a/cpan/Encode/Unicode/Unicode.pm +++ b/cpan/Encode/Unicode/Unicode.pm @@ -4,7 +4,7 @@ use strict; use warnings; no warnings 'redefine'; -our $VERSION = do { my @r = ( q$Revision: 2.6 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); @@ -259,7 +259,7 @@ Consider that "division by zero" of Encode :) L<Encode>, L<Encode::Unicode::UTF7>, L<http://www.unicode.org/glossary/>, L<http://www.unicode.org/unicode/faq/utf_bom.html>, -RFC 2781 L<http://rfc.net/rfc2781.html>, +RFC 2781 L<http://www.ietf.org/rfc/rfc2781.txt>, The whole Unicode standard L<http://www.unicode.org/unicode/uni2book/u2.html> diff --git a/cpan/Encode/Unicode/Unicode.xs b/cpan/Encode/Unicode/Unicode.xs index 1f041d4240..d8ef569515 100644 --- 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); } |