+++ /dev/null
-# ::macos:perl -I::lib -e 'for(<:*:*.t>){open my $fh,"<$_";$t=<$fh>=~/(T)/?"-T":" ";$s="$^X -I::lib $t $_"; print qq[echo "$s"\n$s\n]}'
-set -e MACPERL ""
-set -e PERL5LIB ""
-perl -e '`set -e MACPERL_OLD "{{MACPERL}}"` if `echo {{MACPERL}}`'
-perl -e '`set -e PERL5LIB_OLD "{{PERL5LIB}}"` if `echo {{PERL5LIB}}`'
-perl -e '`set -e MACPERL ""`'
-perl -e '`set -e PERL5LIB ""`'
-echo "# When finished, execute these lines to restore your ToolServer environment:"
-echo "perl -e '¶`set -e MACPERL ¶"¶{¶{MACPERL_OLD¶}¶}¶"¶` if ¶`echo ¶{¶{MACPERL_OLD¶}¶}¶`'"
-echo "perl -e '¶`set -e PERL5LIB ¶"¶{¶{PERL5LIB_OLD¶}¶}¶"¶` if ¶`echo ¶{¶{PERL5LIB_OLD¶}¶}¶`'"
-echo ""
-
-perl -e 'open F, ">::macos:MacPerlTests.out"'
-open ::macos:MacPerlTests.out
-
-echo "::macos:perl -I::lib :base:cond.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :base:cond.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :base:if.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :base:if.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :base:lex.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :base:lex.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :base:pat.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :base:pat.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :base:rs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :base:rs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :base:term.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :base:term.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :cmd:elsif.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :cmd:elsif.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :cmd:for.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :cmd:for.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :cmd:mod.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :cmd:mod.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :cmd:subval.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :cmd:subval.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :cmd:switch.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :cmd:switch.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :cmd:while.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :cmd:while.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:bproto.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:bproto.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:cmdopt.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:cmdopt.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:colon.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:colon.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:cpp.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:cpp.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:decl.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:decl.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:multiline.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:multiline.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:package.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:package.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:proto.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:proto.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:redef.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:redef.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:require.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:require.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:script.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:script.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:term.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:term.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :comp:use.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :comp:use.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:argv.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:argv.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:dup.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:dup.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:fs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:fs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:inplace.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:inplace.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:iprefix.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:iprefix.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:nargv.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:nargv.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:open.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:open.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:openpid.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:openpid.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:pipe.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:pipe.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:print.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:print.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:read.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:read.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :io:tell.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :io:tell.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:abbrev.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:abbrev.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:ansicolor.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:ansicolor.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:anydbm.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:anydbm.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:attrs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:attrs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:autoloader.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:autoloader.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:b.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:b.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib -T :lib:basename.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib -T :lib:basename.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:bigfloat.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:bigfloat.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:bigfltpm.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:bigfltpm.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:bigint.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:bigint.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:bigintpm.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:bigintpm.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:cgi-esc.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:cgi-esc.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:cgi-form.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:cgi-form.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:cgi-function.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:cgi-function.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:cgi-html.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:cgi-html.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:cgi-pretty.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:cgi-pretty.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:cgi-request.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:cgi-request.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:charnames.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:charnames.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:checktree.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:checktree.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:class-struct.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:class-struct.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:complex.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:complex.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:db-btree.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:db-btree.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:db-hash.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:db-hash.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:db-recno.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:db-recno.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:dirhand.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:dirhand.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:dosglob.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:dosglob.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:dprof.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:dprof.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:dumper-ovl.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:dumper-ovl.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:dumper.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:dumper.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:english.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:english.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:env-array.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:env-array.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:env.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:env.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:errno.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:errno.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:fatal.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:fatal.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:fields.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:fields.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:filecache.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:filecache.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:filecopy.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:filecopy.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib -T :lib:filefind-taint.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib -T :lib:filefind-taint.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:filefind.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:filefind.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:filefunc.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:filefunc.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:filehand.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:filehand.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:filepath.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:filepath.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:filespec.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:filespec.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:findbin.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:findbin.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:ftmp-mktemp.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:ftmp-mktemp.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:ftmp-posix.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:ftmp-posix.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:ftmp-security.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:ftmp-security.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:ftmp-tempfile.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:ftmp-tempfile.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:gdbm.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:gdbm.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:getopt.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:getopt.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:glob-basic.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:glob-basic.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:glob-case.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:glob-case.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:glob-global.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:glob-global.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib -T :lib:glob-taint.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib -T :lib:glob-taint.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:gol-basic.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:gol-basic.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:gol-compat.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:gol-compat.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:gol-linkage.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:gol-linkage.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:gol-oo.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:gol-oo.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:h2ph.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:h2ph.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:hostname.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:hostname.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_const.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_const.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_dir.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_dir.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_dup.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_dup.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_linenum.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_linenum.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_multihomed.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_multihomed.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_pipe.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_pipe.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_poll.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_poll.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_sel.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_sel.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_sock.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_sock.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib -T :lib:io_taint.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib -T :lib:io_taint.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_tell.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_tell.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_udp.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_udp.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_unix.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_unix.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:io_xs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:io_xs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:ipc_sysv.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:ipc_sysv.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:ndbm.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:ndbm.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:odbm.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:odbm.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:opcode.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:opcode.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:open2.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:open2.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:open3.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:open3.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:ops.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:ops.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:parsewords.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:parsewords.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:peek.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:peek.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:ph.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:ph.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:posix.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:posix.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:safe1.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:safe1.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:safe2.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:safe2.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:sdbm.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:sdbm.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:searchdict.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:searchdict.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:selectsaver.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:selectsaver.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:selfloader.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:selfloader.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:socket.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:socket.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:soundex.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:soundex.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:symbol.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:symbol.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:syslfs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:syslfs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:syslog.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:syslog.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:textfill.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:textfill.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:texttabs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:texttabs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:textwrap.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:textwrap.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:thr5005.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:thr5005.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:tie-push.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:tie-push.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:tie-refhash.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:tie-refhash.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:tie-splice.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:tie-splice.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:tie-stdarray.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:tie-stdarray.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:tie-stdhandle.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:tie-stdhandle.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:tie-stdpush.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:tie-stdpush.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:tie-substrhash.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:tie-substrhash.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:timelocal.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:timelocal.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :lib:trig.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :lib:trig.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:64bitint.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:64bitint.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:anonsub.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:anonsub.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:append.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:append.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:args.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:args.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:arith.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:arith.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:array.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:array.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:assignwarn.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:assignwarn.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:attrs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:attrs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:auto.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:auto.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:avhv.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:avhv.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:bop.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:bop.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:chars.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:chars.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:chop.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:chop.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:closure.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:closure.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:cmp.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:cmp.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:concat.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:concat.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:cond.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:cond.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:context.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:context.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:defins.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:defins.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:delete.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:delete.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:die.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:die.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :op:die_exit.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :op:die_exit.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:do.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:do.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:each.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:each.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:eval.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:eval.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:exec.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:exec.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:exists_sub.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:exists_sub.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:exp.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:exp.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:fh.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:fh.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:filetest.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:filetest.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:flip.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:flip.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:fork.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:fork.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:glob.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:glob.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:goto.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:goto.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:goto_xs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:goto_xs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:grent.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:grent.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:grep.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:grep.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:groups.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:groups.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:gv.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:gv.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:hashwarn.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:hashwarn.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:inc.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:inc.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:index.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:index.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:int.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:int.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:join.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:join.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:length.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:length.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:lex_assign.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:lex_assign.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:lfs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:lfs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:list.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:list.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:local.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:local.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:lop.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:lop.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :op:magic.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :op:magic.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:method.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:method.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :op:misc.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :op:misc.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:mkdir.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:mkdir.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:my.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:my.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:my_stash.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:my_stash.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:nothr5005.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:nothr5005.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:numconvert.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:numconvert.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:oct.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:oct.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:ord.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:ord.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:pack.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:pack.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:pat.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:pat.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:pos.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:pos.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:push.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:push.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:pwent.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:pwent.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:quotemeta.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:quotemeta.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:rand.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:rand.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:range.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:range.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:read.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:read.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:readdir.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:readdir.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:recurse.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:recurse.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:ref.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:ref.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:regexp.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:regexp.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:regexp_noamp.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:regexp_noamp.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:regmesg.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:regmesg.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:repeat.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:repeat.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:reverse.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:reverse.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:runlevel.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:runlevel.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:sleep.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:sleep.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:sort.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:sort.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:splice.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:splice.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:split.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:split.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :op:sprintf.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :op:sprintf.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:stat.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:stat.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:study.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:study.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:subst.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:subst.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:subst_amp.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:subst_amp.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:subst_wamp.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:subst_wamp.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:substr.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:substr.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:sysio.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:sysio.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib -T :op:taint.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib -T :op:taint.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:tie.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:tie.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:tiearray.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:tiearray.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:tiehandle.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:tiehandle.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:time.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:time.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:tr.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:tr.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:undef.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:undef.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:universal.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:universal.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:unshift.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:unshift.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:utf8decode.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:utf8decode.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:vec.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:vec.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:ver.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:ver.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:wantarray.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:wantarray.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :op:write.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :op:write.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:emptycmd.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:emptycmd.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:find.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:find.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:for.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:for.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:headings.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:headings.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:include.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:include.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:included.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:included.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:lref.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:lref.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:multiline_items.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:multiline_items.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:nested_items.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:nested_items.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:nested_seqs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:nested_seqs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:oneline_cmds.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:oneline_cmds.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:pod2usage.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:pod2usage.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:poderrs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:poderrs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:podselect.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:podselect.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pod:special_seqs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pod:special_seqs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pragma:constant.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pragma:constant.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pragma:diagnostics.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pragma:diagnostics.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib -T :pragma:locale.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib -T :pragma:locale.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pragma:overload.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pragma:overload.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pragma:strict.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pragma:strict.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pragma:sub_lval.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pragma:sub_lval.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pragma:subs.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pragma:subs.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :pragma:utf8.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :pragma:utf8.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :pragma:warnings.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :pragma:warnings.t >> ::macos:MacPerlTests.out
-echo "::macos:perl -I::lib :run:runenv.t" >> ::macos:MacPerlTests.out
-::macos:perl -I::lib :run:runenv.t >> ::macos:MacPerlTests.out
-
-::macos:perl -I::lib ::macos:MacPerlTests.plx ::macos:MacPerlTests.out >> ::macos:MacPerlTests.out
-
-echo "The following tests mostly work, but fail because of known"
-echo "IO problems. Feel free to run them, and note the failures."
-echo "These tests are known to fail. Run if you want to, but beware"
-echo "because crashes are possible."
-echo ""
-echo "# DB is broken in a few different ways"
-echo "::macos:perl -I::lib :lib:db-hash.t >> ::macos:MacPerlTests.out"
-echo "::macos:perl -I::lib :lib:db-recno.t >> ::macos:MacPerlTests.out"
-echo ""
-echo "# DOS::Glob doesn't work ... do we care?"
-echo "::macos:perl -I::lib :lib:dosglob.t >> ::macos:MacPerlTests.out"
-echo ""
-echo "# Devel::DProf seems to work, but test needs major work :/"
-echo "::macos:perl -I::lib :lib:dprof.t >> ::macos:MacPerlTests.out"
-echo ""
-echo "# I have no idea about these ..."
-echo "::macos:perl -I::lib :lib:ftmp-mktemp.t >> ::macos:MacPerlTests.out"
-echo "::macos:perl -I::lib :lib:ftmp-posix.t >> ::macos:MacPerlTests.out"
-echo "::macos:perl -I::lib :lib:ftmp-security.t >> ::macos:MacPerlTests.out"
-echo "::macos:perl -I::lib :lib:ftmp-tempfile.t >> ::macos:MacPerlTests.out"
-echo ""
-echo "# system() fails to return a good value"
-echo "::macos:perl -I::lib :op:die_exit.t >> ::macos:MacPerlTests.out"
-echo ""
-echo "# I dunno here"
-echo "::macos:perl -I::lib :op:magic.t >> ::macos:MacPerlTests.out"
-echo ""
-echo "# fails test 48 (known problem in IO redirection)"
-echo "::macos:perl -I::lib :op:misc.t >> ::macos:MacPerlTests.out"
-echo ""
-echo "# fails tests 129, 130, 142, 161 (known problem in sfio)"
-echo "::macos:perl -I::lib :op:sprintf.t >> ::macos:MacPerlTests.out"
-echo ""
-echo "# fails tests 319, 329 (known problem in IO redirection)"
-echo "::macos:perl -I::lib :pragma:warnings.t >> ::macos:MacPerlTests.out"
+++ /dev/null
-diff -ru :perl:lib:ExtUtils: :perl.new:lib:ExtUtils:xsubpp
---- :perl:lib:ExtUtils:xsubpp Mon Feb 19 17:07:32 2001
-+++ :perl.new:lib:ExtUtils:xsubpp Mon Feb 19 15:31:31 2001
-@@ -173,7 +173,13 @@
- ($dir, $filename) = $ARGV[0] =~ m#(.*)/(.*)#
- or ($dir, $filename) = $ARGV[0] =~ m#(.*)\\(.*)#
- or ($dir, $filename) = $ARGV[0] =~ m#(.*[>\]])(.*)#
-+ or ($dir, $filename) = $ARGV[0] =~ m#(.*):(.*)#
- or ($dir, $filename) = ('.', $ARGV[0]);
-+
-+$Is_MacOS = $^O eq 'MacOS';
-+if ($Is_MacOS && $dir eq '.') {
-+ $dir = ":";
-+}
- chdir($dir);
- $pwd = cwd();
-
-@@ -209,9 +215,21 @@
- foreach $typemap (@tm) {
- die "Can't find $typemap in $pwd\n" unless -r $typemap;
- }
--unshift @tm, qw(../../../../lib/ExtUtils/typemap ../../../lib/ExtUtils/typemap
-+if ($Is_MacOS) { my @tmp;
-+ foreach (qw(:::: ::: :: :)) {
-+ push @tmp, "$_:lib:ExtUtils:typemap";
-+ push @tmp, "$_:macos:lib:ExtUtils:typemap";
-+ push @tmp, "$_:Mac:typemap";
-+ push @tmp, "$_:macos:ext:Mac:typemap";
-+ push @tmp, "$_:typemap";
-+ }
-+ unshift @tm, @tmp, "typemap";
-+} else {
-+ unshift @tm, qw(../../../../lib/ExtUtils/typemap ../../../lib/ExtUtils/typemap
- ../../lib/ExtUtils/typemap ../../../typemap ../../typemap
- ../typemap typemap);
-+}
-+
- foreach $typemap (@tm) {
- next unless -e $typemap ;
- # skip directories, binary files etc.
-@@ -364,7 +382,7 @@
- print("#line ", $line_no[@line_no - @line -1], " \"$filename\"\n")
- if $WantLineNumbers && !/^\s*#\s*line\b/ && !/^#if XSubPPtmp/;
- for (; defined($_) && !/^$BLOCK_re/o; $_ = shift(@line)) {
-- print "$_\n";
-+ XS_process("$_\n");
- }
- print "$xsubpp::counter::SECTION_END_MARKER\n" if $WantLineNumbers;
- }
-@@ -746,7 +764,85 @@
- $lastline_no = $. ;
-
- }
--
-+
-+sub XS_PUSH_handler
-+{
-+ my($type, $value, $xpush) = @_;
-+ if ($xpush) {
-+ print "\tEXTEND(sp, 1);\n";
-+ }
-+ print "\t++sp;\n";
-+ &generate_output($type, 0, "($value)", "*sp", 1);
-+ "";
-+}
-+
-+sub XS_OUTPUT_handler
-+{
-+ my($type, $value, $arg) = @_;
-+
-+ &generate_output($type, 0, "($value)", 0, 0, $arg);
-+ "";
-+}
-+
-+sub XS_INPUT_handler
-+{
-+ my($type, $var, $arg) = @_;
-+ &generate_init($type, 0, $var, 0, 0, $arg, 1);
-+ "";
-+}
-+
-+
-+sub XS_POP_handler
-+{
-+ my($type, $var, $pop) = @_;
-+ &generate_init($type, 0, $var, "TOPs", 1);
-+ print "\tPOPs;\n" if $pop;
-+ "";
-+}
-+
-+sub SplitArgs
-+{
-+ my(@bits,@pieces,$item);
-+ @bits = split /,/, $_[0];
-+ while (@bits) {
-+ $item .= "," if $item;
-+ $item .= shift @bits;
-+ if (tr/(// == tr/)//
-+ && tr/{// == tr/}//
-+ && tr/[// == tr/]//
-+ && !(tr/"// & 1)
-+ && !(tr/'// & 1)
-+ ) {
-+ push @pieces, $item;
-+ $item = "";
-+ }
-+ }
-+ @pieces;
-+}
-+
-+sub XS_process
-+{
-+ my($text) = @_;
-+
-+ while (length($text)) {
-+ if ($text =~ s/^.*\bXS_PUSH\(([^,]+),\s*(.*)\)\s*;?.*\n?//) {
-+ XS_PUSH_handler($1, $2, 0);
-+ } elsif ($text =~ s/^.*\bXS_XPUSH\(([^,]+),\s*(.*)\)\s*;?.*\n?//) {
-+ XS_PUSH_handler($1, $2, 1);
-+ } elsif ($text =~ s/^.*\bXS_OUTPUT\((.*)\)\s*;?.*\n?//) {
-+ XS_OUTPUT_handler(SplitArgs($1));
-+ } elsif ($text =~ s/^.*\bXS_INPUT\((.*)\)\s*;?.*\n?//) {
-+ XS_INPUT_handler(SplitArgs($1));
-+ } elsif ($text =~ s/^.*\bXS_POP\(([^,]+),\s*(.*)\)\s*;?.*\n?//) {
-+ XS_POP_handler($1, $2, 1);
-+ } elsif ($text =~ s/^.*\bXS_TOP\(([^,]+),\s*(.*)\)\s*;?.*\n?//) {
-+ XS_POP_handler($1, $2, 0);
-+ } elsif ($text =~ s/^(.*\n?)//) {
-+ print $1;
-+ }
-+ }
-+}
-+
- sub PopFile()
- {
- return 0 unless $XSStack[-1]{type} eq 'file' ;
-@@ -861,8 +957,8 @@
- my $podstartline = $.;
- do {
- if (/^=cut\s*$/) {
-- print("/* Skipped embedded POD. */\n");
-- printf("#line %d \"$filename\"\n", $. + 1)
-+ XS_process("/* Skipped embedded POD. */\n");
-+ XS_process(sprintf("#line %d \"$filename\"\n", $. + 1))
- if $WantLineNumbers;
- next firstmodule
- }
-@@ -880,7 +976,7 @@
- if ($OBJ) {
- s/#if(?:def\s|\s+defined)\s*(\(__cplusplus\)|__cplusplus)/#if defined(__cplusplus) && !defined(PERL_OBJECT)/;
- }
-- print $_;
-+ XS_process($_);
- }
- &Exit unless defined $_;
-
-@@ -949,6 +1045,185 @@
- 1;
- }
-
-+sub indent {
-+ my($line) = @_;
-+ my($indent) = 0;
-+
-+ for (;;) {
-+ if ($line =~ s/^( +)//) { $indent += length $1; next; }
-+ if ($line =~ s/^\t//) { $indent += 8 - ($indent & 7); next; }
-+ last;
-+ }
-+ $indent;
-+}
-+
-+sub handle_struct
-+{
-+ # extract return type, function name and arguments
-+ my($deref, $structpack) = /(\**)\s*(\S+)/;
-+ my($handle) = ($^O eq "MacOS") && ($deref eq "**");
-+ $deref =~ s/\*$/->/;
-+ $deref =~ s/\*/\[0\]/g;
-+ $deref ||= ".";
-+ my($structtype) = $structpack;
-+
-+ # a struct definition needs at least 2 lines
-+ blurt ("Error: Struct definition too short '$structpack'"), next PARAGRAPH
-+ unless @line ;
-+
-+ ($clean_struct_name = $structpack) =~ s/^$Prefix//;
-+ $Full_struct_name = "${Packid}_$clean_struct_name";
-+ if ($Is_VMS) { $Full_struct_name = $SymSet->addsym($Full_struct_name); }
-+
-+ # Check for duplicate function definition
-+ for $tmp (@XSStack) {
-+ next unless defined $tmp->{functions}{$Full_struct_name};
-+ Warn("Warning: duplicate struct definition '$clean_struct_name' detected");
-+ last;
-+ }
-+
-+ # print struct function header
-+ print Q<<"EOF";
-+#XS(XS_${Full_struct_name})
-+#[[
-+# dXSARGS;
-+# dXSI32;
-+# if (items < 1 || items > 2)
-+# croak("Usage: %s(STRUCT [, VALUE])", GvNAME(CvGV(cv)));
-+# SP -= items;
-+EOF
-+
-+ # Now do a block of some sort.
-+
-+ &check_cpp;
-+ my($structinput, $structoutput, $structindir, $structoutdir);
-+ my(@field, @fieldindir, @fieldoutdir, @input, @output);
-+ $structindir = $structoutdir = line_directive();
-+ $_ = "";
-+ while (defined $_) {
-+ $_ = shift @line while /^\s*$/;
-+ my($fieldindir) = line_directive();
-+ my($fieldoutdir)= $fieldindir;
-+ my($indent,$fieldtype,$fieldname) =
-+ m|^(\s*)(\S.*\S)\s*\b(\w+)\s*;?\s*(?:/\*.*\*/)?$|;
-+ $indent = indent $indent;
-+ $fieldtype = TidyType $fieldtype;
-+ my($input, $output);
-+ my $var = "STRUCT$deref$fieldname";
-+ $_ = shift @line;
-+ while (/ALIAS|READ_ONLY|INPUT:|OUTPUT:/) {
-+ if (/ALIAS\s*(.*)/) {
-+ $var = $1;
-+ $_ = shift @line;
-+ } elsif (/READ_ONLY/) {
-+ $fieldindir = line_directive();
-+ $input = "$_";
-+ $_ = shift @line;
-+ } elsif (/INPUT/) {
-+ last unless ($_ = shift @line);
-+ $fieldindir = line_directive();
-+ while (indent($_) > $indent && !/ALIAS|READ_ONLY|INPUT:|OUTPUT:/) {
-+ $input .= "$_\n";
-+ $_ = shift @line;
-+ }
-+ } else {
-+ last unless ($_ = shift @line);
-+ $fieldoutdir = line_directive();
-+ while (indent($_) > $indent && !/ALIAS|READ_ONLY|INPUT:|OUTPUT:/) {
-+ $output .= "$_\n";
-+ $_ = shift @line;
-+ }
-+ }
-+ }
-+ if ($fieldname eq "STRUCT") {
-+ $structindir = $fieldindir;
-+ $structoutdir= $fieldoutdir;
-+ $structtype = $fieldtype;
-+ $arg = "ST(0)";
-+ $structinput = eval "qq\a$input\a";
-+ $structoutput= eval "qq\a$output\a";
-+ } else {
-+ if ($input =~ /READ_ONLY/) {
-+ $input = "\tcroak(\"$var is read-only\");\n";
-+ } elsif ($input) {
-+ $arg = "ST(1)";
-+ $input = eval "qq\a$input\a";
-+ } else {
-+ $input = "\tXS_INPUT($fieldtype, $var, ST(1));";
-+ }
-+ if ($output) {
-+ $arg = "*sp";
-+ $output = "\tPUSHs(sv_newmortal());\n" . eval "qq\a$output\a";
-+ } else {
-+ $output = "\tXS_PUSH($fieldtype, $var);";
-+ }
-+ push @field, $fieldname;
-+ push @fieldindir, $fieldindir;
-+ push @fieldoutdir, $fieldoutdir;
-+ push @input, $input;
-+ push @output, $output;
-+ }
-+ }
-+ print Q<<"EOF";
-+# [[
-+# $structtype STRUCT;
-+EOF
-+ print "\tchar STRUCT_state;\n" if $handle;
-+ print "\n$structindir";
-+ XS_process($structinput || "\tXS_INPUT($structtype, STRUCT, ST(0));");
-+ print "\n\tSTRUCT_state = HGetState((Handle)STRUCT); HLock((Handle)STRUCT);\n" if ($handle);
-+ print Q<<"EOF";
-+# if (items == 1) [[ /* Get field */
-+# switch (ix) [[
-+EOF
-+ for (0..$#field) {
-+ print Q<<"EOF";
-+# case $_: /* $field[$_] */
-+EOF
-+ print $fieldoutdir[$_];
-+ XS_process($output[$_]);
-+ print Q<<"EOF";
-+# break;
-+EOF
-+ }
-+ print Q<<"EOF";
-+# ]]
-+# ]] else [[ /* Set field */
-+# switch (ix) [[
-+EOF
-+ for (0..$#field) {
-+ print Q<<"EOF";
-+# case $_: /* $field[$_] */
-+EOF
-+ print $fieldindir[$_];
-+ XS_process($input[$_]);
-+ print Q<<"EOF";
-+# break;
-+EOF
-+ }
-+ print Q<<"EOF";
-+# ]]
-+EOF
-+ print $structoutdir;
-+ XS_process($structoutput || "\tXS_OUTPUT($structtype, STRUCT, ST(0))\n");
-+ print Q<<"EOF";
-+# ]]
-+EOF
-+ print "\tHSetState((Handle)STRUCT, STRUCT_state);\n" if $handle;
-+ print Q<<"EOF";
-+# ]]
-+# XSRETURN(1);
-+#]]
-+#
-+EOF
-+ for (0..$#field) {
-+ push(@InitFileCode, Q<<"EOF");
-+# cv = newXS(\"${structpack}::$field[$_]\", XS_$Full_struct_name, file);
-+# XSANY.any_i32 = $_ ;
-+EOF
-+ }
-+}
-+
- PARAGRAPH:
- while (fetch_para()) {
- # Print initial preprocessor statements and blank lines
-@@ -1040,7 +1315,11 @@
- next PARAGRAPH ;
- }
-
--
-+ if (s/^STRUCT\s*//) {
-+ handle_struct();
-+ next PARAGRAPH;
-+ }
-+
- # extract return type, function name and arguments
- ($ret_type) = TidyType($_);
- $RETVAL_no_return = 1 if $ret_type =~ s/^NO_OUTPUT\s+//;
-@@ -1285,7 +1564,7 @@
- $processing_arg_with_types = 1;
- INPUT_handler() ;
- }
-- print $deferred;
-+ XS_process($deferred);
-
- process_keyword("INIT|ALIAS|ATTRS|PROTOTYPE|INTERFACE_MACRO|INTERFACE|C_ARGS") ;
-
-@@ -1338,7 +1617,7 @@
-
- # all OUTPUT done, so now push the return value on the stack
- if ($gotRETVAL && $RETVAL_code) {
-- print "\t$RETVAL_code\n";
-+ XS_process("\t$RETVAL_code\n");
- } elsif ($gotRETVAL || $wantRETVAL) {
- my $t = $WantOptimize && $targetable{$type_kind{$ret_type}};
- my $var = 'RETVAL';
-@@ -1574,6 +1853,14 @@
- }
- }
-
-+sub line_directive
-+{
-+ # work out the line number
-+ my $line_no = $line_no[@line_no - @line -1] ;
-+
-+ return "#line $line_no \"$filename\"\n" ;
-+}
-+
- sub Warn
- {
- # work out the line number
-@@ -1595,12 +1882,12 @@
- }
-
- sub generate_init {
-- local($type, $num, $var) = @_;
-- local($arg) = "ST(" . ($num - 1) . ")";
-+ local($type, $num, $var, $arg, $immed) = @_;
- local($argoff) = $num - 1;
- local($ntype);
- local($tk);
-
-+ $arg ||= "ST(" . ($num - 1) . ")";
- $type = TidyType($type) ;
- blurt("Error: '$type' not in typemap"), return
- unless defined($type_kind{$type});
-@@ -1656,17 +1943,18 @@
- } else {
- die "panic: do not know how to handle this branch for function pointers"
- if $name_printed;
-- eval qq/print "$expr;\\n"/;
-+ eval qq/XS_process "$expr;\\n"/;
- warn $@ if $@;
- }
- }
-
- sub generate_output {
-- local($type, $num, $var, $do_setmagic, $do_push) = @_;
-- local($arg) = "ST(" . ($num - ($num != 0)) . ")";
-+ local($type, $num, $var, $do_setmagic, $do_push, $arg, $mortalize) = @_;
- local($argoff) = $num - 1;
- local($ntype);
-
-+ $mortalize ||= $var eq 'RETVAL';
-+ $arg ||= "ST(" . ($num - ($num != 0)) . ")";
- $type = TidyType($type) ;
- if ($type =~ /^array\(([^,]*),(.*)\)/) {
- print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1));\n";
-@@ -1695,30 +1983,30 @@
- warn $@ if $@;
- print "\t\tSvSETMAGIC(ST(ix_$var));\n" if $do_setmagic;
- }
-- elsif ($var eq 'RETVAL') {
-+ elsif ($mortalize) {
- if ($expr =~ /^\t\$arg = new/) {
- # We expect that $arg has refcnt 1, so we need to
- # mortalize it.
- eval "print qq\a$expr\a";
- warn $@ if $@;
-- print "\tsv_2mortal(ST($num));\n";
-- print "\tSvSETMAGIC(ST($num));\n" if $do_setmagic;
-+ print "\tsv_2mortal($arg);\n";
-+ print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
- }
- elsif ($expr =~ /^\s*\$arg\s*=/) {
- # We expect that $arg has refcnt >=1, so we need
- # to mortalize it!
- eval "print qq\a$expr\a";
- warn $@ if $@;
-- print "\tsv_2mortal(ST(0));\n";
-- print "\tSvSETMAGIC(ST(0));\n" if $do_setmagic;
-+ print "\tsv_2mortal($arg);\n";
-+ print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
- }
- else {
- # Just hope that the entry would safely write it
- # over an already mortalized value. By
- # coincidence, something like $arg = &sv_undef
- # works too.
-- print "\tST(0) = sv_newmortal();\n";
-- eval "print qq\a$expr\a";
-+ print "\t$arg = sv_newmortal();\n";
-+ eval "XS_process qq\a$expr\a";
- warn $@ if $@;
- # new mortals don't have set magic
- }
-@@ -1730,8 +2018,8 @@
- warn $@ if $@;
- print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
- }
-- elsif ($arg =~ /^ST\(\d+\)$/) {
-- eval "print qq\a$expr\a";
-+ else {
-+ eval "XS_process qq\a$expr\a";
- warn $@ if $@;
- print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
- }