[MacPorts] #71194: Experimental p5.38-pathtools does not build for testing on macOS High Sierra, version 10.13.6, because of old semantics

[MacPorts]

#71194: Experimental p5.38-pathtools does not build for testing on macOS High
Sierra, version 10.13.6, because of old semantics
------------------------+-----------------------------
 Reporter:  ballapete   |      Owner:  (none)
     Type:  defect      |     Status:  assigned
 Priority:  Normal      |  Milestone:
Component:  ports       |    Version:  2.10.2
 Keywords:  highsierra  |       Port:  p5.38-pathtools
------------------------+-----------------------------
 {{{
 --->  Testing p5.38-pathtools
 Executing:  cd
 "/opt/local/var/macports/build/_opt_local_var_macports_sources_rsync.macports.org_macports_release_tarballs_ports_perl_p5-pathtools/p5.38-pathtools/work/PathTools-3.75"
 && /usr/bin/make test
 "/opt/local/bin/perl5.38" -MExtUtils::Command::MM -e 'cp_nonempty' --
 Cwd.bs blib/arch/auto/Cwd/Cwd.bs 644
 PERL_DL_NONLAZY=1 "/opt/local/bin/perl5.38" "-MExtUtils::Command::MM"
 "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0,
 'blib/lib', 'blib/arch')" t/*.t
 t/abs2rel.t ........ ok
 t/crossplatform.t .. ok
 t/cwd.t ............ ok
 t/cwd_enoent.t ..... ok
 t/Functions.t ...... ok
 t/rel2abs2rel.t .... ok
 t/Spec-taint.t ..... ok
 t/Spec.t ........... ok

 #   Failed test 'cwd() should not explode under taint mode'
 #   at t/taint.t line 31.
 #          got: 'Insecure directory in $ENV{PATH} while running with -T
 switch at
 /opt/local/var/macports/build/_opt_local_var_macports_sources_rsync.macports.org_macports_release_tarballs_ports_perl_p5-pathtools/p5.38-pathtools/work/PathTools-3.75/blib/lib/Cwd.pm
 line 204.
 # '
 #     expected: ''

 #   Failed test 'its return value should be tainted'
 #   at t/taint.t line 32.

 #   Failed test 'fastgetcwd() should not explode under taint mode'
 #   at t/taint.t line 31.
 #          got: 'Insecure directory in $ENV{PATH} while running with -T
 switch at
 /opt/local/var/macports/build/_opt_local_var_macports_sources_rsync.macports.org_macports_release_tarballs_ports_perl_p5-pathtools/p5.38-pathtools/work/PathTools-3.75/blib/lib/Cwd.pm
 line 204.
 # '
 #     expected: ''

 #   Failed test 'its return value should be tainted'
 #   at t/taint.t line 32.
 # Looks like you failed 4 tests of 21.
 t/taint.t ..........
 Dubious, test returned 4 (wstat 1024, 0x400)
 Failed 4/21 subtests
 Old package separator "'" deprecated at t/tmpdir.t line 46.
 Use of apostrophe as package separator was deprecated in Perl 5.37.9,
 and will be removed in Perl 5.42.0.  You should change code that uses
 Test::More::isn't() to use Test::More::isnt() as a replacement at
 t/tmpdir.t line 46
 Use of apostrophe as package separator was deprecated in Perl 5.37.9,
 and will be removed in Perl 5.42.0.  You should change code that uses
 Test::More::isn't() to use Test::More::isnt() as a replacement at
 t/tmpdir.t line 46
 t/tmpdir.t ......... ok
 t/win32.t .......... skipped: this is not win32

 Test Summary Report
 -------------------
 t/taint.t        (Wstat: 1024 (exited 4) Tests: 21 Failed: 4)
   Failed tests:  3-4, 7-8
   Non-zero exit status: 4
 Files=11, Tests=847,  1 wallclock secs ( 0.10 usr  0.03 sys +  1.25 cusr
 0.21 csys =  1.59 CPU)
 Result: FAIL
 Failed 1/11 test programs. 4/847 subtests failed.
 make: *** [test_dynamic] Error 255
 Command failed:  cd
 "/opt/local/var/macports/build/_opt_local_var_macports_sources_rsync.macports.org_macports_release_tarballs_ports_perl_p5-pathtools/p5.38-pathtools/work/PathTools-3.75"
 && /usr/bin/make test
 Exit code: 2
 Error: Failed to test p5.38-pathtools: command execution failed
 }}}

 It seems to happen in this block:

 {{{
 195 # The 'natural and safe form' for UNIX (pwd may be setuid root)
 196 sub _backtick_pwd {
 197
 198     # Localize %ENV entries in a way that won't create new hash keys.
 199     # Under AmigaOS we don't want to localize as it stops perl from
 200     # finding 'sh' in the PATH.
 201     my @localize = grep exists $ENV{$_}, qw(PATH IFS CDPATH ENV
 BASH_ENV) if $^O ne "amigaos";
 202     local @ENV{@localize} if @localize;
 203
 204     my $cwd = `$pwd_cmd`;
 205     # Belt-and-suspenders in case someone said "undef $/".
 206     local $/ = "\n";
 207     # `pwd` may fail e.g. if the disk is full
 208     chomp($cwd) if defined $cwd;
 209     $cwd;
 210 }
 }}}

 Does Perl 5.38 assume a backtick is inappropriately used for an
 apostrophe?

-- 
Ticket URL: <https://trac.macports.org/ticket/71194>
MacPorts <https://www.macports.org/>
Ports system for macOS