summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/perl/t/porting
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/usr.bin/perl/t/porting')
-rw-r--r--gnu/usr.bin/perl/t/porting/bench.t4
-rw-r--r--gnu/usr.bin/perl/t/porting/customized.dat21
-rwxr-xr-xgnu/usr.bin/perl/t/porting/diag.t18
-rw-r--r--gnu/usr.bin/perl/t/porting/dual-life.t6
-rw-r--r--gnu/usr.bin/perl/t/porting/known_pod_issues.dat10
-rw-r--r--gnu/usr.bin/perl/t/porting/libperl.t9
-rwxr-xr-xgnu/usr.bin/perl/t/porting/manifest.t11
-rw-r--r--gnu/usr.bin/perl/t/porting/regen.t2
8 files changed, 51 insertions, 30 deletions
diff --git a/gnu/usr.bin/perl/t/porting/bench.t b/gnu/usr.bin/perl/t/porting/bench.t
index 7c137c1ded6..9d2ab87690f 100644
--- a/gnu/usr.bin/perl/t/porting/bench.t
+++ b/gnu/usr.bin/perl/t/porting/bench.t
@@ -77,9 +77,7 @@ my %format_qrs;
"("
. "\\s*-?\\d+\\."
. "\\d" x $l
- ."|\\s{"
- . ($l + 1)
- . ",}-)"
+ ."|\\s*-)"
}ge;
# convert run of space chars into ' +' or ' *'
diff --git a/gnu/usr.bin/perl/t/porting/customized.dat b/gnu/usr.bin/perl/t/porting/customized.dat
index ced03a3b074..dd41c3d4537 100644
--- a/gnu/usr.bin/perl/t/porting/customized.dat
+++ b/gnu/usr.bin/perl/t/porting/customized.dat
@@ -1,10 +1,7 @@
-Digest::MD5 cpan/Digest-MD5/t/files.t f8fe234035918d3b7324eba05f73e7e903a45ca0
# Regenerate this file using:
# cd t
# ./perl -I../lib porting/customized.t --regen
-Devel::PPPort dist/Devel-PPPort/parts/embed.fnc e030719d9c6921810554a8e2d398543348b4878c
Digest cpan/Digest/Digest.pm 43f7f544cb11842b2f55c73e28930da50774e081
-Encode cpan/Encode/t/truncated_utf8.t 36e6780c20f1d22ed7c97b1a388a63629617451f
Locale::Maketext::Simple cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm 57ed38905791a17c150210cd6f42ead22a7707b6
Math::Complex cpan/Math-Complex/lib/Math/Complex.pm 198ea6c6c584f5ea79a0fd7e9d411d0878f3b2af
Math::Complex cpan/Math-Complex/t/Complex.t 4f307ed6fc59f1e5fb0e6b11103fc631b6bdb335
@@ -12,23 +9,21 @@ Math::Complex cpan/Math-Complex/t/Trig.t 2682526e23a161d54732c2a66393fe4a234d186
Memoize cpan/Memoize/Memoize.pm 902092ff91cdec9c7b4bd06202eb179e1ce26ca2
NEXT cpan/NEXT/lib/NEXT.pm 2c83d03ee361816e53ccb931137d314ab878d19f
NEXT cpan/NEXT/t/next.t 66fd60eb0f75b6f3eea95d1dee745f9a7a348146
+Net::Ping dist/Net-Ping/lib/Net/Ping.pm e2e7053673ead1eff8f3ca8ecdd9b838598c1d8c
Net::Ping dist/Net-Ping/t/000_load.t deff5dc2ca54dae28cb19d3631427db127279ac2
-Net::Ping dist/Net-Ping/t/001_new.t 90c9d63509b3efc8941449fbd1ca8b807fa42040
-Net::Ping dist/Net-Ping/t/500_ping_icmp.t a003daa5eaf215e58234786bb1fbfbebf669bf44
+Net::Ping dist/Net-Ping/t/500_ping_icmp.t 3eeb60181c01b85f876bd6658644548fdf2e24d4
+Net::Ping dist/Net-Ping/t/501_ping_icmpv6.t 54373de5858f8fb7e078e4998a4b3b8dbca91783
Pod::Checker cpan/Pod-Checker/t/pod/contains_bad_pod.xr 73538fd80dfe6e19ad561fe034009b44460208f6
Pod::Checker cpan/Pod-Checker/t/pod/selfcheck.t 8ce3cfd38e4b9bcf5bc7fe7f2a14195e49aed7d8
Pod::Checker cpan/Pod-Checker/t/pod/testcmp.pl a0cd5c8eca775c7753f4464eee96fa916e3d8a16
Pod::Checker cpan/Pod-Checker/t/pod/testpchk.pl b2072c7f4379fd050e15424175d7cac5facf5b3b
-Pod::Perldoc cpan/Pod-Perldoc/lib/Pod/Perldoc.pm d97aa26b722e6e3120b19ee0d7cf9af04dfdfb7f
+Pod::Perldoc cpan/Pod-Perldoc/lib/Pod/Perldoc.pm 582be34c077c9ff44d99914724a0cc2140bcd48c
autodie cpan/autodie/lib/autodie/exception.pm b99e4e35a9ed36de94d54437888822ced4936207
autodie cpan/autodie/lib/autodie/hints.pm e1998fec61fb4e82fe46585bd82c73200be6f262
autodie cpan/autodie/t/exceptions.t ad315a208f875e06b0964012ce8d65daa438c036
autodie cpan/autodie/t/lib/Hints_pod_examples.pm 6944c218e9754b3613c8d0c90a5ae8aceccb5c99
autodie cpan/autodie/t/mkdir.t 9e70d2282a3cc7d76a78bf8144fccba20fb37dac
-experimental cpan/experimental/t/basic.t a073ea03ccc98dec496569f3648ab01a5fe1c7a0
-version vutil.c 45ff345c3d8424ba63e130a223848f5b336bd87b
-perlfaq cpan/perlfaq/lib/perlfaq5.pod bcc1b6af3b6dff3973643acf8d5e741463374123
-perlfaq cpan/perlfaq/lib/perlfaq8.pod bffbc0c8fa828aead24e0891a5e789369a8e0743
-podlators pod/perlpodstyle.pod c6500c9950b46e8228d4adbc09a3ee2ef23de2d0
-version cpan/version/lib/version.pm a61f969d55dd73ae2d7a604f2c9bbef1ea82b820
-version vxs.inc f26c23f0279fb64c77ad814af906c04930cff81c
+autodie cpan/autodie/t/recv.t 63bea2daa330e44b67714527ddf701c1bf3a6954
+experimental cpan/experimental/t/basic.t cb9da8dd05b854375809872a05dd32637508d5da
+version cpan/version/lib/version.pm 7ef9219d1d5f1d71f08a79f3b0577df138b21b12
+version vutil.c 105543ef1824fbc2429a7d5ebd19189c8081fede
diff --git a/gnu/usr.bin/perl/t/porting/diag.t b/gnu/usr.bin/perl/t/porting/diag.t
index 22cde90a9cf..b892dfa066f 100755
--- a/gnu/usr.bin/perl/t/porting/diag.t
+++ b/gnu/usr.bin/perl/t/porting/diag.t
@@ -76,7 +76,20 @@ my $category_re = qr/ [a-z0-9_:]+?/; # Note: requires an initial space
my $severity_re = qr/ . (?: \| . )* /x; # A severity is a single char, but can
# be of the form 'S|P|W'
my @same_descr;
+my $depth = 0;
while (<$diagfh>) {
+ if (m/^=over/) {
+ $depth++;
+ next;
+ }
+ if (m/^=back/) {
+ $depth--;
+ next;
+ }
+
+ # Stuff deeper than main level is ignored
+ next if $depth != 1;
+
if (m/^=item (.*)/) {
$cur_entry = $1;
@@ -141,6 +154,11 @@ while (<$diagfh>) {
}
}
+if ($depth != 0) {
+ diag ("Unbalance =over/=back. Fix before proceeding; over - back = " . $depth);
+ exit(1);
+}
+
foreach my $cur_entry ( keys %entries) {
next if $entries{$cur_entry}{todo}; # If in this file, won't have a severity
if (! exists $entries{$cur_entry}{severity}
diff --git a/gnu/usr.bin/perl/t/porting/dual-life.t b/gnu/usr.bin/perl/t/porting/dual-life.t
index fdfc9b692d4..4ad2256ef29 100644
--- a/gnu/usr.bin/perl/t/porting/dual-life.t
+++ b/gnu/usr.bin/perl/t/porting/dual-life.t
@@ -24,12 +24,6 @@ use File::Spec::Functions;
# Exceptions that are found in dual-life bin dirs but aren't
# installed by default; some occur only during testing:
my $not_installed = qr{^(?:
- \.\./cpan/Archive-Tar/bin/ptar.*
- |
- \.\./cpan/JSON-PP/bin/json_pp
- |
- \.\./cpan/IO-Compress/bin/zipdetails
- |
\.\./cpan/Encode/bin/u(?:cm(?:2table|lint|sort)|nidump)
|
\.\./cpan/Module-(?:Metadata|Build)
diff --git a/gnu/usr.bin/perl/t/porting/known_pod_issues.dat b/gnu/usr.bin/perl/t/porting/known_pod_issues.dat
index e89d5c02a13..a89edf79a48 100644
--- a/gnu/usr.bin/perl/t/porting/known_pod_issues.dat
+++ b/gnu/usr.bin/perl/t/porting/known_pod_issues.dat
@@ -22,7 +22,9 @@ Apache::MP3
Apache::SmallProf
Archive::Extract
Array::Base
+arybase
atan2(3)
+atoi(3)
Attribute::Constant
autobox
B::Generate
@@ -160,6 +162,9 @@ Lingua::ZH::Romanize::Pinyin
List::Gather
listen(2)
local::lib
+Locale::Codes
+Locale::Country
+Locale::Language
localeconv(3)
lockf(3)
Log::Message
@@ -283,6 +288,7 @@ strftime(3)
strictures
String::Base
String::Scanf
+strtol(3)
Switch
tar(1)
Template::Declare
@@ -336,7 +342,7 @@ dist/devel-ppport/parts/inc/ppphdoc Unknown directive: =dontwarn 1
dist/devel-ppport/parts/inc/ppphdoc Unknown directive: =implementation 1
dist/devel-ppport/parts/inc/ppphdoc Unknown directive: =provides 1
dist/exporter/lib/exporter.pm Verbatim line length including indents exceeds 79 by 2
-dist/net-ping/lib/net/ping.pm Apparent broken link 1
+dist/net-ping/lib/net/ping.pm Apparent broken link 2
ext/amiga-exec/exec.pm Verbatim line length including indents exceeds 79 by 1
ext/dynaloader/dynaloader.pm Verbatim line length including indents exceeds 79 by 1
ext/hash-util/lib/hash/util.pm Verbatim line length including indents exceeds 79 by 2
@@ -374,7 +380,7 @@ pod/perltie.pod Verbatim line length including indents exceeds 79 by 3
pod/perltru64.pod Verbatim line length including indents exceeds 79 by 1
pod/perlwin32.pod Verbatim line length including indents exceeds 79 by 7
porting/epigraphs.pod Verbatim line length including indents exceeds 79 by -1
-porting/release_managers_guide.pod Verbatim line length including indents exceeds 79 by 1
+porting/release_managers_guide.pod Verbatim line length including indents exceeds 79 by 2
porting/todo.pod ? Should you be using F<...> or maybe L<...> instead of 1
lib/benchmark.pm Verbatim line length including indents exceeds 79 by 2
lib/config.pod ? Should you be using L<...> instead of -1
diff --git a/gnu/usr.bin/perl/t/porting/libperl.t b/gnu/usr.bin/perl/t/porting/libperl.t
index 1536fda9440..f5fb53d2c32 100644
--- a/gnu/usr.bin/perl/t/porting/libperl.t
+++ b/gnu/usr.bin/perl/t/porting/libperl.t
@@ -250,7 +250,7 @@ sub nm_parse_darwin {
# String literals can live in different sections
# depending on the compiler and os release, assumedly
# also linker flags.
- if (/^\(__TEXT,__(?:const|cstring|literal\d+)\) (?:non-)?external _?(\w+)(\.\w+)?$/) {
+ if (/^\(__TEXT,__(?:const|(?:asan_)?cstring|literal\d+)\) (?:non-)?external _?(\w+)(\.\w+)?$/) {
my ($symbol, $suffix) = ($1, $2);
# Ignore function-local constants like
# _Perl_av_extend_guts.oom_array_extend
@@ -330,9 +330,11 @@ ok($symbols{data}{const}{PL_no_mem}{'globals.o'}, "has PL_no_mem");
my $GS = $Config{ccflags} =~ /-DPERL_GLOBAL_STRUCT\b/ ? 1 : 0;
my $GSP = $Config{ccflags} =~ /-DPERL_GLOBAL_STRUCT_PRIVATE/ ? 1 : 0;
+my $nocommon = $Config{ccflags} =~ /-fno-common/ ? 1 : 0;
print "# GS = $GS\n";
print "# GSP = $GSP\n";
+print "# nocommon = $nocommon\n";
my %data_symbols;
@@ -382,6 +384,11 @@ if ($GSP) {
ok(!exists $data_symbols{PL_hash_seed}, "has no PL_hash_seed");
ok(!exists $data_symbols{PL_ppaddr}, "has no PL_ppaddr");
+ if ($nocommon) {
+ $symbols{data}{common} = $symbols{data}{bss};
+ delete $symbols{data}{bss};
+ }
+
ok(! exists $symbols{data}{bss}, "has no data bss symbols")
or do {
my $bad = "BSS entries (there are supposed to be none):\n";
diff --git a/gnu/usr.bin/perl/t/porting/manifest.t b/gnu/usr.bin/perl/t/porting/manifest.t
index 7adb06198de..7bed600de5a 100755
--- a/gnu/usr.bin/perl/t/porting/manifest.t
+++ b/gnu/usr.bin/perl/t/porting/manifest.t
@@ -60,11 +60,11 @@ while (<$m>) {
next;
} elsif ($separator !~ tr/ //c) {
# It's all spaces
- fail("Spaces in entry for $file");
+ fail("Spaces in entry for $file in MANIFEST at line $.");
} elsif ($separator =~ tr/\t//) {
- fail("Mixed tabs and spaces in entry for $file");
+ fail("Mixed tabs and spaces in entry for $file in MANIFEST at line $.");
} else {
- fail("Odd whitespace in entry for $file");
+ fail("Odd whitespace in entry for $file in MANIFEST at line $.");
}
}
@@ -86,7 +86,10 @@ SKIP: {
SKIP: {
find_git_or_skip(6);
my %seen; # De-dup ls-files output (can appear more than once)
- chomp(my @repo= grep { !/\.gitignore$/ && !$seen{$_}++ } `git ls-files`);
+ chomp(my @repo= grep {
+ !m{\.gitignore$} &&
+ !$seen{$_}++
+ } `git ls-files`);
skip("git ls-files didnt work",3)
if !@repo;
is( 0+@repo, 0+@files, "git ls-files gives the same number of files as MANIFEST lists");
diff --git a/gnu/usr.bin/perl/t/porting/regen.t b/gnu/usr.bin/perl/t/porting/regen.t
index 762e7407840..b4d438f5fb2 100644
--- a/gnu/usr.bin/perl/t/porting/regen.t
+++ b/gnu/usr.bin/perl/t/porting/regen.t
@@ -31,7 +31,7 @@ my $tests = 27; # I can't see a clean way to calculate this automatically.
my %skip = ("regen_perly.pl" => [qw(perly.act perly.h perly.tab)],
"regen/keywords.pl" => [qw(keywords.c keywords.h)],
"regen/uconfig_h.h" => [qw(uconfig.h)],
- "regen/mk_invlists.pl" => [qw(charclass_invlists.h)],
+ "regen/mk_invlists.pl" => [qw(charclass_invlists.h uni_keywords.h)],
"regen/regcharclass.pl" => [qw(regcharclass.h)],
);
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-17 11:31:30 +0000