@@ -1,5 +1,10 @@
Revision history for Perl extension String::Multibyte.
+1.11 Sat Dec 6 11:57:03 2014
+ - Bytes.pm avoids /\C/. Its behavior with perl's Unicode support should
+ change. No longer expect it works for "wide" characters like \x{100}.
+ - EUC_JP.pm and EUC_TW.pm: just remove empty lines at the file end.
+
1.10 Sun Jul 31 14:31:16 2011
- fix the tarball with world writable files.
@@ -2,6 +2,7 @@ Multibyte.pm
Changes
Makefile.PL
MANIFEST
+META.json
META.yml
README
Multibyte/Big5.pm
@@ -0,0 +1,39 @@
+{
+ "abstract" : "manipulation of multibyte character strings",
+ "author" : [
+ "SADAHIRO Tomoyuki <SADAHIRO@cpan.org>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.140640",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "String-Multibyte",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "0"
+ }
+ },
+ "runtime" : {
+ "requires" : {}
+ }
+ },
+ "release_status" : "stable",
+ "version" : "1.11"
+}
@@ -1,21 +1,21 @@
---- #YAML:1.0
-name: String-Multibyte
-version: 1.10
-abstract: manipulation of multibyte character strings
+---
+abstract: 'manipulation of multibyte character strings'
author:
- - SADAHIRO Tomoyuki <SADAHIRO@cpan.org>
-license: perl
-distribution_type: module
-configure_requires:
- ExtUtils::MakeMaker: 0
+ - 'SADAHIRO Tomoyuki <SADAHIRO@cpan.org>'
build_requires:
- ExtUtils::MakeMaker: 0
-requires: {}
-no_index:
- directory:
- - t
- - inc
-generated_by: ExtUtils::MakeMaker version 6.57_05
+ ExtUtils::MakeMaker: '0'
+configure_requires:
+ ExtUtils::MakeMaker: '0'
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.140640'
+license: perl
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: '1.4'
+name: String-Multibyte
+no_index:
+ directory:
+ - t
+ - inc
+requires: {}
+version: '1.11'
@@ -1,11 +1,11 @@
package String::Multibyte::Bytes;
use vars qw($VERSION);
-$VERSION = '1.01';
+$VERSION = '1.11';
+{
charset => 'bytes',
- regexp => $] >= 5.006 ? '\C' : '[\x00-\xFF]',
+ regexp => '[\x00-\xFF]',
nextchar =>
sub {
my $c = unpack('C', shift);
@@ -38,4 +38,3 @@ Character order: C<0x00..0xff>
L<String::Multibyte>
=cut
-
@@ -1,7 +1,7 @@
package String::Multibyte::EUC_JP;
use vars qw($VERSION);
-$VERSION = '1.02';
+$VERSION = '1.11';
+{
charset => 'EUC-JP',
@@ -96,6 +96,3 @@ Unassigned G2 (C<0x8EE0..0x8EFE>) are now included.
L<String::Multibyte>
=cut
-
-
-#
\ No newline at end of file
@@ -1,7 +1,7 @@
package String::Multibyte::EUC_TW;
use vars qw($VERSION);
-$VERSION = '1.02';
+$VERSION = '1.11';
+{
charset => 'EUC-TW',
@@ -93,4 +93,3 @@ Plane 1 characters in G1 (e.g. C<0xA1A1>) and those in G2
L<String::Multibyte>
=cut
-
@@ -18,7 +18,7 @@ require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw();
-$VERSION = '1.10';
+$VERSION = '1.11';
my $PACKAGE = 'String::Multibyte'; # __PACKAGE__
@@ -1089,7 +1089,7 @@ So the result of this must be C<-1> (meaning B<no match>).
SADAHIRO Tomoyuki <SADAHIRO@cpan.org>
-Copyright(C) 2001-2010, SADAHIRO Tomoyuki. Japan. All rights reserved.
+Copyright(C) 2001-2014, SADAHIRO Tomoyuki. Japan. All rights reserved.
This module is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
@@ -1,4 +1,4 @@
-String::Multibyte.pm version 1.06
+String::Multibyte.pm version 1.11
================
String::Multibyte - locale-independent manipulation
@@ -47,7 +47,7 @@ COPYRIGHT AND LICENSE
SADAHIRO Tomoyuki <SADAHIRO@cpan.org>
-Copyright(C) 2001-2010, SADAHIRO Tomoyuki. Japan. All rights reserved.
+Copyright(C) 2001-2014, SADAHIRO Tomoyuki. Japan. All rights reserved.
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
@@ -83,11 +83,8 @@ if ($] < 5.008) {
print 0 == $bytes->length("")
&& 3 == $bytes->length("abc")
- && 15 == $bytes->length(pack 'U*',
- 0xFF71,0xFF72,0xFF73,0xFF74,0xFF75)
- && 12 == $bytes->length(pack 'U*', 0x3042,0x304B,0x3055,0x305F)
- && 17 == $bytes->length('AIUEO'.
- pack 'U*', 0x65E5, 0x672C,0x6F22,0x5B57)
+ && 5 == $bytes->length(pack 'C*', 0xF1,0xF2,0xF3,0xF4,0xF5)
+ && 9 == $bytes->length('AIUEO'.pack 'C*', 0xE5, 0x2C,0x22,0x57)
? "ok" : "not ok", " 8\n";
}