https://metacpan.org/release/CGPAN/POSIX-2008-0.20/source/2008.xs#L2141
× FAIL 5.38.0-x86_64-linux-thread-multi-quadmath DEBUGGING
× FAIL 5.38.0-x86_64-linux-thread-multi-ld DEBUGGING
× FAIL 5.36.1-x86_64-linux-thread-multi-ld DEBUGGING
? PASS 5.36.1-x86_64-linux-thread-multi no DEBUGGING
× FAIL 5.34.1-x86_64-linux-thread-multi-ld DEBUGGING
This is perl 5, version 38, subversion 0 (v5.38.0) built for x86_64-linux-thread-multi-quadmath
Linux 6.4.3-1-default [openSUSE Tumbleweed 20230716]
POSIX-2008-0.20-0 510 > prove -vwb t/02_fs.t
t/02_fs.t ..
1..77
ok 1 - access(F_OK)
ok 2 - access(R_OK)
ok 3 - access(W_OK)
ok 4 - access(X_OK)
panic: free from wrong pool, 20134f8!=1fdb2a0 at t/02_fs.t line 42.
# Looks like your test exited with 22 just after 4.
Dubious, test returned 22 (wstat 5632, 0x1600)
Failed 73/77 subtests
Test Summary Report
-------------------
t/02_fs.t (Wstat: 5632 (exited 22) Tests: 4 Failed: 0)
Non-zero exit status: 22
Parse errors: Bad plan. You planned 77 tests but ran 4.
Files=1, Tests=4, 0 wallclock secs ( 0.02 usr 0.00 sys + 0.07 cusr 0.01 csys = 0.10 CPU)
Result: FAIL
If I change that test to
my $prp = POSIX::2008::realpath ($tmpname);
my $crp = Cwd::realpath ($tmpname);
is ($prp, $crp, 'realpath ()');
I get
t/02_fs.t ... 1/77 panic: free from wrong pool, 323a3a5849002424!=11e32a0 at t/02_fs.t line 42.
which clearly indicates POSIX::2008::realpath is at fault, but I do not see why
--8<---
char *
realpath(const char *path);
CODE:
errno = 0;
RETVAL = realpath(path, NULL);
OUTPUT:
RETVAL
CLEANUP:
if (RETVAL != NULL)
safesysfree(RETVAL);
-->8---
Changing "safesysfree(RETVAL)" to "Safefree (RETVAL)" - as used in other entries - still panics
--
H.Merijn Brand https://tux.nl Perl Monger http://amsterdam.pm.org/
using perl5.00307 .. 5.37 porting perl5 on HP-UX, AIX, and Linux
https://tux.nl/email.html http://qa.perl.org https://www.test-smoke.org
× FAIL 5.38.0-x86_64-linux-thread-multi-quadmath DEBUGGING
× FAIL 5.38.0-x86_64-linux-thread-multi-ld DEBUGGING
× FAIL 5.36.1-x86_64-linux-thread-multi-ld DEBUGGING
? PASS 5.36.1-x86_64-linux-thread-multi no DEBUGGING
× FAIL 5.34.1-x86_64-linux-thread-multi-ld DEBUGGING
This is perl 5, version 38, subversion 0 (v5.38.0) built for x86_64-linux-thread-multi-quadmath
Linux 6.4.3-1-default [openSUSE Tumbleweed 20230716]
POSIX-2008-0.20-0 510 > prove -vwb t/02_fs.t
t/02_fs.t ..
1..77
ok 1 - access(F_OK)
ok 2 - access(R_OK)
ok 3 - access(W_OK)
ok 4 - access(X_OK)
panic: free from wrong pool, 20134f8!=1fdb2a0 at t/02_fs.t line 42.
# Looks like your test exited with 22 just after 4.
Dubious, test returned 22 (wstat 5632, 0x1600)
Failed 73/77 subtests
Test Summary Report
-------------------
t/02_fs.t (Wstat: 5632 (exited 22) Tests: 4 Failed: 0)
Non-zero exit status: 22
Parse errors: Bad plan. You planned 77 tests but ran 4.
Files=1, Tests=4, 0 wallclock secs ( 0.02 usr 0.00 sys + 0.07 cusr 0.01 csys = 0.10 CPU)
Result: FAIL
If I change that test to
my $prp = POSIX::2008::realpath ($tmpname);
my $crp = Cwd::realpath ($tmpname);
is ($prp, $crp, 'realpath ()');
I get
t/02_fs.t ... 1/77 panic: free from wrong pool, 323a3a5849002424!=11e32a0 at t/02_fs.t line 42.
which clearly indicates POSIX::2008::realpath is at fault, but I do not see why
--8<---
char *
realpath(const char *path);
CODE:
errno = 0;
RETVAL = realpath(path, NULL);
OUTPUT:
RETVAL
CLEANUP:
if (RETVAL != NULL)
safesysfree(RETVAL);
-->8---
Changing "safesysfree(RETVAL)" to "Safefree (RETVAL)" - as used in other entries - still panics
--
H.Merijn Brand https://tux.nl Perl Monger http://amsterdam.pm.org/
using perl5.00307 .. 5.37 porting perl5 on HP-UX, AIX, and Linux
https://tux.nl/email.html http://qa.perl.org https://www.test-smoke.org