开源软件构建与测试

_service:tar_scm:perl-Text-Tabs+Wrap.spec Changed

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/CHANGELOG -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/CHANGELOG Changed

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/MANIFEST -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/MANIFEST Changed

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/META.json -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/META.json Changed

@@ -4,13 +4,13 @@
       "David Muir Sharnoff <muir@idiom.org>"
    ,
    "dynamic_config" : 0,
-   "generated_by" : "ExtUtils::MakeMaker version 7.1002, CPAN::Meta::Converter version 2.150005",
+   "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010",
    "license" : 
       "unknown"
    ,
    "meta-spec" : {
       "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
-      "version" : "2"
+      "version" : 2
    },
    "name" : "Text-Tabs+Wrap",
    "no_index" : {
@@ -32,21 +32,21 @@
       },
       "runtime" : {
          "requires" : {
-            "perl" : "5.006"
+            "perl" : "5.006001"
          }
       }
    },
    "release_status" : "stable",
    "resources" : {
       "bugtracker" : {
-         "web" : "https://github.com/ap/Text-Tabs/issues"
+         "web" : "https://rt.cpan.org/Public/Dist/Display.html?Name=Text-Tabs%2BWrap"
       },
       "repository" : {
          "type" : "git",
-         "url" : "git://github.com/ap/Text-Tabs.git",
+         "url" : "https://github.com/ap/Text-Tabs.git",
          "web" : "https://github.com/ap/Text-Tabs"
       }
    },
-   "version" : "2021.0814",
-   "x_serialization_backend" : "JSON::PP version 2.27300_01"
+   "version" : "2023.0511",
+   "x_serialization_backend" : "JSON::PP version 4.02"
 }

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/META.yml -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/META.yml Changed

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/Makefile.PL -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/Makefile.PL Changed

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/lib.modern/Text/Tabs.pm -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/lib.modern/Text/Tabs.pm Changed

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/lib.modern/Text/Wrap.pm -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/lib.modern/Text/Wrap.pm Changed

@@ -9,18 +9,22 @@
 our @EXPORT = qw( wrap fill );
 our @EXPORT_OK = qw( $columns $break $huge );
 
-our $VERSION = '2021.0814';
+our $VERSION = '2023.0511';
 our $SUBVERSION = 'modern'; # back-compat vestige
 
+BEGIN { eval sprintf 'sub REGEXPS_USE_BYTES () { %d }', scalar( pack('U*', 0x80) =~ /\xc2/ ) }
+
+my $brkspc = "\x{a0}\x{202f}" =~ /\s/ ? '^\x{a0}\x{202f}\S' : '\s';
+
 our $columns = 76;  # <= screen width
-our $break = '(?=\s)(?:\r\n|\PM\pM*)';
+our $break = '(?>\n|\r\n|'.$brkspc.'\pM*)';
 our $huge = 'wrap'; # alternatively: 'die' or 'overflow'
 our $unexpand = 1;
 our $tabstop = 8;
 our $separator = "\n";
 our $separator2 = undef;
 
-sub _xlen { () = $_0 =~ /\PM/g }
+sub _xlen { $_0 =~ /^\pM/ + ( () = $_0 =~ /\PM/g ) }
 
 use Text::Tabs qw(expand unexpand);
 
@@ -49,17 +53,17 @@
 
 	pos($t) = 0;
 	while ($t !~ /\G(?:$break)*\Z/gc) {
-		if ($t =~ /\G((?:(?!\n)\PM\pM*){0,$ll})($break|\n+|\z)/xmgc) {
+		if ($t =~ /\G((?>(?!\n)\PM\pM*|(?<!^\n)\pM+){0,$ll})($break|\n+|\z)/xmgc) {
 			$r .= $unexpand 
 				? unexpand($nl . $lead . $1)
 				: $nl . $lead . $1;
 			$remainder = $2;
-		} elsif ($huge eq 'wrap' && $t =~ /\G((?:(?!\n)\PM\pM*){$ll})/gc) {
+		} elsif ($huge eq 'wrap' && $t =~ /\G((?>(?!\n)\PM\pM*|(?<!^\n)\pM+){$ll})/gc) {
 			$r .= $unexpand 
 				? unexpand($nl . $lead . $1)
 				: $nl . $lead . $1;
 			$remainder = defined($separator2) ? $separator2 : $separator;
-		} elsif ($huge eq 'overflow' && $t =~ /\G((?:(?!\n)\PM\pM*)*?)($break|\n+|\z)/xmgc) {
+		} elsif ($huge eq 'overflow' && $t =~ /\G(^\n*?)(?!(?<!^\n)\pM)($break|\n+|\z)/xmgc) {
 			$r .= $unexpand 
 				? unexpand($nl . $lead . $1)
 				: $nl . $lead . $1;
@@ -87,7 +91,10 @@
 	$r .= $lead . substr($t, pos($t), length($t) - pos($t))
 		if pos($t) ne length($t);
 
-	return $r;
+	# the 5.6 regexp engine ignores the UTF8 flag, so using capture buffers acts as an implicit _utf8_off
+	# that means on 5.6 we now have to manually set UTF8=on on the output if the input had it, for which
+	# we extract just the UTF8 flag from the input and check if it forces chr(0x80) to become multibyte
+	return REGEXPS_USE_BYTES && (substr($t,0,0)."\x80") =~ /\xc2/ ? pack('U0a*', $r) : $r;
 }
 
 sub fill

_service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/t/124024.t Added

_service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/t/148291.t Added

_service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/t/95823.t Added

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/t/Tabs-ElCid.t -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/t/Tabs-ElCid.t Changed

_service:tar_scm:Text-Tabs+Wrap-2021.0814.tar.gz/t/Wrap-JLB.t -> _service:tar_scm:Text-Tabs+Wrap-2023.0511.tar.gz/t/Wrap-JLB.t Changed

Changes of Revision 8