parallel: Update to 20180922 (#1444)
This commit is contained in:
@@ -1,88 +1,6 @@
|
||||
diff --git old/Makefile.in 001/Makefile.in
|
||||
index b4550c4..6796ddd 100644
|
||||
--- old/Makefile.in
|
||||
+++ 001/Makefile.in
|
||||
@@ -1,7 +1,7 @@
|
||||
-# Makefile.in generated by automake 1.15 from Makefile.am.
|
||||
+# Makefile.in generated by automake 1.15.1 from Makefile.am.
|
||||
# @configure_input@
|
||||
|
||||
-# Copyright (C) 1994-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 1994-2017 Free Software Foundation, Inc.
|
||||
|
||||
# This Makefile.in is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -230,6 +230,8 @@ PACKAGE_TARNAME = @PACKAGE_TARNAME@
|
||||
PACKAGE_URL = @PACKAGE_URL@
|
||||
PACKAGE_VERSION = @PACKAGE_VERSION@
|
||||
PATH_SEPARATOR = @PATH_SEPARATOR@
|
||||
+PERLINTERP = @PERLINTERP@
|
||||
+PERL_SHEBANG = @PERL_SHEBANG@
|
||||
SET_MAKE = @SET_MAKE@
|
||||
SHELL = @SHELL@
|
||||
STRIP = @STRIP@
|
||||
@@ -265,7 +267,6 @@ pdfdir = @pdfdir@
|
||||
prefix = @prefix@
|
||||
program_transform_name = @program_transform_name@
|
||||
psdir = @psdir@
|
||||
-runstatedir = @runstatedir@
|
||||
sbindir = @sbindir@
|
||||
sharedstatedir = @sharedstatedir@
|
||||
srcdir = @srcdir@
|
||||
@@ -500,7 +501,7 @@ distdir: $(DISTFILES)
|
||||
! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \
|
||||
|| chmod -R a+r "$(distdir)"
|
||||
dist-gzip: distdir
|
||||
- tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz
|
||||
+ tardir=$(distdir) && $(am__tar) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).tar.gz
|
||||
$(am__post_remove_distdir)
|
||||
|
||||
dist-bzip2: distdir
|
||||
@@ -526,7 +527,7 @@ dist-shar: distdir
|
||||
@echo WARNING: "Support for shar distribution archives is" \
|
||||
"deprecated." >&2
|
||||
@echo WARNING: "It will be removed altogether in Automake 2.0" >&2
|
||||
- shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz
|
||||
+ shar $(distdir) | eval GZIP= gzip $(GZIP_ENV) -c >$(distdir).shar.gz
|
||||
$(am__post_remove_distdir)
|
||||
|
||||
dist-zip: distdir
|
||||
@@ -544,7 +545,7 @@ dist dist-all:
|
||||
distcheck: dist
|
||||
case '$(DIST_ARCHIVES)' in \
|
||||
*.tar.gz*) \
|
||||
- GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\
|
||||
+ eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).tar.gz | $(am__untar) ;;\
|
||||
*.tar.bz2*) \
|
||||
bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\
|
||||
*.tar.lz*) \
|
||||
@@ -554,7 +555,7 @@ distcheck: dist
|
||||
*.tar.Z*) \
|
||||
uncompress -c $(distdir).tar.Z | $(am__untar) ;;\
|
||||
*.shar.gz*) \
|
||||
- GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\
|
||||
+ eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).shar.gz | unshar ;;\
|
||||
*.zip*) \
|
||||
unzip $(distdir).zip ;;\
|
||||
esac
|
||||
diff --git old/aclocal.m4 001/aclocal.m4
|
||||
index c24039f..2fa8b41 100644
|
||||
--- old/aclocal.m4
|
||||
+++ 001/aclocal.m4
|
||||
@@ -1,6 +1,6 @@
|
||||
-# generated automatically by aclocal 1.15 -*- Autoconf -*-
|
||||
+# generated automatically by aclocal 1.15.1 -*- Autoconf -*-
|
||||
|
||||
-# Copyright (C) 1996-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 1996-2017 Free Software Foundation, Inc.
|
||||
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -20,7 +20,146 @@ You have another version of autoconf. It may work, but is not guaranteed to.
|
||||
If you have problems, you may need to regenerate the build system entirely.
|
||||
To do so, use the procedure documented by the package, typically 'autoreconf'.])])
|
||||
|
||||
-# Copyright (C) 2002-2014 Free Software Foundation, Inc.
|
||||
--- /dev/null 2018-10-04 17:34:38.000000000 +0200
|
||||
+++ a/AX_SYS_PERLSHARPBANG.m4 2018-10-04 17:10:05.042511300 +0200
|
||||
@@ -0,0 +1,138 @@
|
||||
+# ===========================================================================
|
||||
+# https://www.gnu.org/software/autoconf-archive/ax_sys_perlsharpbang.html
|
||||
+# ===========================================================================
|
||||
@@ -154,21 +72,21 @@ index c24039f..2fa8b41 100644
|
||||
+ AC_ARG_WITH(perl-shebang,
|
||||
+ AS_HELP_STRING([--with-perl-shebang],
|
||||
+ [override what perl thinks is the way for the kernel to start it (seldom needed)]dnl
|
||||
+ ),
|
||||
+ [opt_perl_shebang="$withval"]dnl
|
||||
+ ,dnl
|
||||
+ [opt_perl_shebang="not_set"]dnl
|
||||
+ ),
|
||||
+ [opt_perl_shebang="$withval"]dnl
|
||||
+ ,dnl
|
||||
+ [opt_perl_shebang="not_set"]dnl
|
||||
+ )dnl
|
||||
+
|
||||
+ AC_CACHE_CHECK([whether explicit instead of detected sharpbang is to be used],
|
||||
+ ax_cv_opt_perl_shebang,
|
||||
+ [ case "$opt_perl_shebang" in
|
||||
+ not_set ) ax_cv_opt_perl_shebang=''
|
||||
+ ;;
|
||||
+ * )
|
||||
+ ax_cv_opt_perl_shebang=`echo "$opt_perl_shebang" | sed -e's|^#!\s*\(.*\)$|\1|'`
|
||||
+ esac
|
||||
+ ]dnl
|
||||
+ ax_cv_opt_perl_shebang,
|
||||
+ [ case "$opt_perl_shebang" in
|
||||
+ not_set ) ax_cv_opt_perl_shebang=''
|
||||
+ ;;
|
||||
+ * )
|
||||
+ ax_cv_opt_perl_shebang=`echo "$opt_perl_shebang" | sed -e's|^#!\s*\(.*\)$|\1|'`
|
||||
+ esac
|
||||
+ ]dnl
|
||||
+ )dnl
|
||||
+
|
||||
+ if test "A$ax_cv_opt_perl_shebang" != "A"
|
||||
@@ -183,21 +101,21 @@ index c24039f..2fa8b41 100644
|
||||
+
|
||||
+ _somian_shbangperl=`$PERLINTERP -V:startperl`
|
||||
+ negclass="[[^']]"; dnl
|
||||
+# must leave this comment: m4 will remove the outer brackets for us, heheh
|
||||
+ must leave this comment: m4 will remove the outer brackets for us, heheh
|
||||
+ AC_CACHE_CHECK([for kernel sharpbang invocation to start perl],
|
||||
+ ac_cv_sys_kernshrpbang_perl,
|
||||
+ [_somian_kspb_perl=`echo "$_somian_shbangperl" | sed -ne"s|.*='\($negclass*\)';$|\1|p"`
|
||||
+ if test "x$_somian_kspb_perl" == x
|
||||
+ then _somian_ksbp_warn_empty='durnit'
|
||||
+ else
|
||||
+ case "A$_somian_kspb_perl" in
|
||||
+ A#!*perl* )
|
||||
+ ac_cv_sys_kernshrpbang_perl,
|
||||
+ [_somian_kspb_perl=`echo "$_somian_shbangperl" | sed -ne"s|.*='\($negclass*\)';$|\1|p"`
|
||||
+ if test "x$_somian_kspb_perl" == x
|
||||
+ then _somian_ksbp_warn_empty='durnit'
|
||||
+ else
|
||||
+ case "A$_somian_kspb_perl" in
|
||||
+ A#!*perl* )
|
||||
+ ac_cv_sys_kernshrpbang_perl=`echo "$_somian_kspb_perl" | sed -e's|#!\(.*\)$|\1|'`
|
||||
+ ;;
|
||||
+ A* ) _somian_ksbp_warn_defau='trouble'
|
||||
+ ac_cv_sys_kernshrpbang_perl="$PERLINTERP"
|
||||
+ esac
|
||||
+ fi
|
||||
+ ;;
|
||||
+ A* ) _somian_ksbp_warn_defau='trouble'
|
||||
+ ac_cv_sys_kernshrpbang_perl="$PERLINTERP"
|
||||
+ esac
|
||||
+ fi
|
||||
+])dnl Done with testing sharpbang
|
||||
+
|
||||
+# The above prints Checking ... result message to user.
|
||||
@@ -210,10 +128,10 @@ index c24039f..2fa8b41 100644
|
||||
+# Inform user after printing result value
|
||||
+ if test A${_somian_ksbp_warn_defau+set} == Aset
|
||||
+ then AC_MSG_NOTICE([Maybe Not good -])
|
||||
+ AC_MSG_WARN([dnl
|
||||
+ AC_MSG_WARN([dnl
|
||||
+In last check perl's Config query did not work so we bunted: $_sHpB$PERLINTERP])
|
||||
+ else AC_MSG_NOTICE([OK Good result - ])
|
||||
+ AC_MSG_NOTICE([dnl
|
||||
+ AC_MSG_NOTICE([dnl
|
||||
+In last check we got a proper-looking answer from perl's Config: $_somian_shbangperl])
|
||||
+dnl Done with user info messages
|
||||
+ fi
|
||||
@@ -221,374 +139,12 @@ index c24039f..2fa8b41 100644
|
||||
+ fi dnl
|
||||
+
|
||||
+])dnl EOMACRO DEF
|
||||
+
|
||||
+# Copyright (C) 2002-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -35,7 +174,7 @@ AC_DEFUN([AM_AUTOMAKE_VERSION],
|
||||
[am__api_version='1.15'
|
||||
dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to
|
||||
dnl require some minimum version. Point them to the right macro.
|
||||
-m4_if([$1], [1.15], [],
|
||||
+m4_if([$1], [1.15.1], [],
|
||||
[AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl
|
||||
])
|
||||
|
||||
@@ -51,14 +190,14 @@ m4_define([_AM_AUTOCONF_VERSION], [])
|
||||
# Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced.
|
||||
# This function is AC_REQUIREd by AM_INIT_AUTOMAKE.
|
||||
AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION],
|
||||
-[AM_AUTOMAKE_VERSION([1.15])dnl
|
||||
+[AM_AUTOMAKE_VERSION([1.15.1])dnl
|
||||
m4_ifndef([AC_AUTOCONF_VERSION],
|
||||
[m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl
|
||||
_AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))])
|
||||
|
||||
# AM_AUX_DIR_EXPAND -*- Autoconf -*-
|
||||
|
||||
-# Copyright (C) 2001-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 2001-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -110,7 +249,7 @@ am_aux_dir=`cd "$ac_aux_dir" && pwd`
|
||||
|
||||
# AM_CONDITIONAL -*- Autoconf -*-
|
||||
|
||||
-# Copyright (C) 1997-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 1997-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -143,7 +282,7 @@ fi])])
|
||||
|
||||
# Do all the work for Automake. -*- Autoconf -*-
|
||||
|
||||
-# Copyright (C) 1996-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 1996-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -340,7 +479,7 @@ for _am_header in $config_headers :; do
|
||||
done
|
||||
echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count])
|
||||
|
||||
-# Copyright (C) 2001-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 2001-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -361,7 +500,7 @@ if test x"${install_sh+set}" != xset; then
|
||||
fi
|
||||
AC_SUBST([install_sh])])
|
||||
|
||||
-# Copyright (C) 2003-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 2003-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -382,7 +521,7 @@ AC_SUBST([am__leading_dot])])
|
||||
|
||||
# Fake the existence of programs that GNU maintainers use. -*- Autoconf -*-
|
||||
|
||||
-# Copyright (C) 1997-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 1997-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -421,7 +560,7 @@ fi
|
||||
|
||||
# Helper functions for option handling. -*- Autoconf -*-
|
||||
|
||||
-# Copyright (C) 2001-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 2001-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -452,7 +591,7 @@ AC_DEFUN([_AM_IF_OPTION],
|
||||
|
||||
# Check to make sure that the build environment is sane. -*- Autoconf -*-
|
||||
|
||||
-# Copyright (C) 1996-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 1996-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -533,7 +672,7 @@ AC_CONFIG_COMMANDS_PRE(
|
||||
rm -f conftest.file
|
||||
])
|
||||
|
||||
-# Copyright (C) 2009-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 2009-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -593,7 +732,7 @@ AC_SUBST([AM_BACKSLASH])dnl
|
||||
_AM_SUBST_NOTMAKE([AM_BACKSLASH])dnl
|
||||
])
|
||||
|
||||
-# Copyright (C) 2001-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 2001-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -621,7 +760,7 @@ fi
|
||||
INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
|
||||
AC_SUBST([INSTALL_STRIP_PROGRAM])])
|
||||
|
||||
-# Copyright (C) 2006-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 2006-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -640,7 +779,7 @@ AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)])
|
||||
|
||||
# Check how to create a tarball. -*- Autoconf -*-
|
||||
|
||||
-# Copyright (C) 2004-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 2004-2017 Free Software Foundation, Inc.
|
||||
#
|
||||
# This file is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
diff --git old/autogen.sh 001/autogen.sh
|
||||
new file mode 100644
|
||||
index 0000000..dee27fb
|
||||
--- /dev/null
|
||||
+++ 001/autogen.sh
|
||||
@@ -0,0 +1,5 @@
|
||||
+#!/bin/sh
|
||||
+
|
||||
+aclocal --force
|
||||
+autoconf --force
|
||||
+automake --foreign --add-missing --copy
|
||||
diff --git old/configure 001/configure
|
||||
index de1dc7f..279408c 100644
|
||||
--- old/configure
|
||||
+++ 001/configure
|
||||
@@ -616,6 +616,8 @@ am__isrc
|
||||
INSTALL_DATA
|
||||
INSTALL_SCRIPT
|
||||
INSTALL_PROGRAM
|
||||
+PERL_SHEBANG
|
||||
+PERLINTERP
|
||||
target_alias
|
||||
host_alias
|
||||
build_alias
|
||||
@@ -635,7 +637,6 @@ infodir
|
||||
docdir
|
||||
oldincludedir
|
||||
includedir
|
||||
-runstatedir
|
||||
localstatedir
|
||||
sharedstatedir
|
||||
sysconfdir
|
||||
@@ -658,6 +659,7 @@ SHELL'
|
||||
ac_subst_files=''
|
||||
ac_user_opts='
|
||||
enable_option_checking
|
||||
+with_perl_shebang
|
||||
enable_silent_rules
|
||||
enable_documentation
|
||||
'
|
||||
@@ -702,7 +704,6 @@ datadir='${datarootdir}'
|
||||
sysconfdir='${prefix}/etc'
|
||||
sharedstatedir='${prefix}/com'
|
||||
localstatedir='${prefix}/var'
|
||||
-runstatedir='${localstatedir}/run'
|
||||
includedir='${prefix}/include'
|
||||
oldincludedir='/usr/include'
|
||||
docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
|
||||
@@ -955,15 +956,6 @@ do
|
||||
| -silent | --silent | --silen | --sile | --sil)
|
||||
silent=yes ;;
|
||||
|
||||
- -runstatedir | --runstatedir | --runstatedi | --runstated \
|
||||
- | --runstate | --runstat | --runsta | --runst | --runs \
|
||||
- | --run | --ru | --r)
|
||||
- ac_prev=runstatedir ;;
|
||||
- -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \
|
||||
- | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \
|
||||
- | --run=* | --ru=* | --r=*)
|
||||
- runstatedir=$ac_optarg ;;
|
||||
-
|
||||
-sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb)
|
||||
ac_prev=sbindir ;;
|
||||
-sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \
|
||||
@@ -1101,7 +1093,7 @@ fi
|
||||
for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \
|
||||
datadir sysconfdir sharedstatedir localstatedir includedir \
|
||||
oldincludedir docdir infodir htmldir dvidir pdfdir psdir \
|
||||
- libdir localedir mandir runstatedir
|
||||
+ libdir localedir mandir
|
||||
do
|
||||
eval ac_val=\$$ac_var
|
||||
# Remove trailing slashes.
|
||||
@@ -1254,7 +1246,6 @@ Fine tuning of the installation directories:
|
||||
--sysconfdir=DIR read-only single-machine data [PREFIX/etc]
|
||||
--sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com]
|
||||
--localstatedir=DIR modifiable single-machine data [PREFIX/var]
|
||||
- --runstatedir=DIR modifiable per-process data [LOCALSTATEDIR/run]
|
||||
--libdir=DIR object code libraries [EPREFIX/lib]
|
||||
--includedir=DIR C header files [PREFIX/include]
|
||||
--oldincludedir=DIR C header files for non-gcc [/usr/include]
|
||||
@@ -1294,6 +1285,12 @@ Optional Features:
|
||||
--disable-documentation Omit building and installing the documentation.
|
||||
(default=no)
|
||||
|
||||
+Optional Packages:
|
||||
+ --with-PACKAGE[=ARG] use PACKAGE [ARG=yes]
|
||||
+ --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no)
|
||||
+ --with-perl-shebang override what perl thinks is the way for the kernel
|
||||
+ to start it (seldom needed)
|
||||
+
|
||||
Report bugs to <bug-parallel@gnu.org>.
|
||||
_ACEOF
|
||||
ac_status=$?
|
||||
@@ -1722,6 +1719,137 @@ ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $
|
||||
ac_compiler_gnu=$ac_cv_c_compiler_gnu
|
||||
|
||||
|
||||
+
|
||||
+# on MSys2 prefer msys to native programs, especially perl
|
||||
+# native windows perl does not work for the time being
|
||||
+case "`uname -s`" in
|
||||
+ MSYS*|MINGW*)
|
||||
+ PATH="/usr/bin:$PATH"
|
||||
+ export PATH
|
||||
+ ;;
|
||||
+esac
|
||||
+
|
||||
+
|
||||
+ # Extract the first word of "perl", so it can be a program name with args.
|
||||
+set dummy perl; ac_word=$2
|
||||
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
|
||||
+$as_echo_n "checking for $ac_word... " >&6; }
|
||||
+if ${ac_cv_path_PERLINTERP+:} false; then :
|
||||
+ $as_echo_n "(cached) " >&6
|
||||
+else
|
||||
+ case $PERLINTERP in
|
||||
+ [\\/]* | ?:[\\/]*)
|
||||
+ ac_cv_path_PERLINTERP="$PERLINTERP" # Let the user override the test with a path.
|
||||
+ ;;
|
||||
+ *)
|
||||
+ as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
|
||||
+for as_dir in $PATH
|
||||
+do
|
||||
+ IFS=$as_save_IFS
|
||||
+ test -z "$as_dir" && as_dir=.
|
||||
+ for ac_exec_ext in '' $ac_executable_extensions; do
|
||||
+ if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
|
||||
+ ac_cv_path_PERLINTERP="$as_dir/$ac_word$ac_exec_ext"
|
||||
+ $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
|
||||
+ break 2
|
||||
+ fi
|
||||
+done
|
||||
+ done
|
||||
+IFS=$as_save_IFS
|
||||
+
|
||||
+ test -z "$ac_cv_path_PERLINTERP" && ac_cv_path_PERLINTERP="perl"
|
||||
+ ;;
|
||||
+esac
|
||||
+fi
|
||||
+PERLINTERP=$ac_cv_path_PERLINTERP
|
||||
+if test -n "$PERLINTERP"; then
|
||||
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $PERLINTERP" >&5
|
||||
+$as_echo "$PERLINTERP" >&6; }
|
||||
+else
|
||||
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5
|
||||
+$as_echo "no" >&6; }
|
||||
+fi
|
||||
+
|
||||
+
|
||||
+ ac_cv_path_perlinterp="$PERLINTERP"
|
||||
+ _sHpB='#!'
|
||||
+
|
||||
+
|
||||
+# Check whether --with-perl-shebang was given.
|
||||
+if test "${with_perl_shebang+set}" = set; then :
|
||||
+ withval=$with_perl_shebang; opt_perl_shebang="$withval"
|
||||
+else
|
||||
+ opt_perl_shebang="not_set"
|
||||
+fi
|
||||
+
|
||||
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether explicit instead of detected sharpbang is to be used" >&5
|
||||
+$as_echo_n "checking whether explicit instead of detected sharpbang is to be used... " >&6; }
|
||||
+if ${ax_cv_opt_perl_shebang+:} false; then :
|
||||
+ $as_echo_n "(cached) " >&6
|
||||
+else
|
||||
+ case "$opt_perl_shebang" in
|
||||
+ not_set ) ax_cv_opt_perl_shebang=''
|
||||
+ ;;
|
||||
+ * )
|
||||
+ ax_cv_opt_perl_shebang=`echo "$opt_perl_shebang" | sed -e's|^#!\s*\(.*\)$|\1|'`
|
||||
+ esac
|
||||
+
|
||||
+fi
|
||||
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ax_cv_opt_perl_shebang" >&5
|
||||
+$as_echo "$ax_cv_opt_perl_shebang" >&6; }
|
||||
+ if test "A$ax_cv_opt_perl_shebang" != "A"
|
||||
+ then
|
||||
+ ac_cv_sys_kernshrpbang_perl="$ax_cv_opt_perl_shebang"
|
||||
+ PERL_SHEBANG="$ac_cv_sys_kernshrpbang_perl"
|
||||
+ { $as_echo "$as_me:${as_lineno-$LINENO}: OK - PERL_SHEBANG is $_sHpB$PERL_SHEBANG." >&5
|
||||
+$as_echo "$as_me: OK - PERL_SHEBANG is $_sHpB$PERL_SHEBANG." >&6;}
|
||||
+
|
||||
+# Automatic detection of sharpbang formula starts here
|
||||
+ else
|
||||
+ _somian_shbangperl=`$PERLINTERP -V:startperl`
|
||||
+ negclass="[^']"; # must leave this comment: m4 will remove the outer brackets for us, heheh
|
||||
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for kernel sharpbang invocation to start perl" >&5
|
||||
+$as_echo_n "checking for kernel sharpbang invocation to start perl... " >&6; }
|
||||
+if ${ac_cv_sys_kernshrpbang_perl+:} false; then :
|
||||
+ $as_echo_n "(cached) " >&6
|
||||
+else
|
||||
+ _somian_kspb_perl=`echo "$_somian_shbangperl" | sed -ne"s|.*='\($negclass*\)';$|\1|p"`
|
||||
+ if test "x$_somian_kspb_perl" == x
|
||||
+ then _somian_ksbp_warn_empty='durnit'
|
||||
+ else
|
||||
+ case "A$_somian_kspb_perl" in
|
||||
+ A#!*perl* )
|
||||
+ ac_cv_sys_kernshrpbang_perl=`echo "$_somian_kspb_perl" | sed -e's|#!\(.*\)$|\1|'`
|
||||
+ ;;
|
||||
+ A* ) _somian_ksbp_warn_defau='trouble'
|
||||
+ ac_cv_sys_kernshrpbang_perl="$PERLINTERP"
|
||||
+ esac
|
||||
+ fi
|
||||
+
|
||||
+fi
|
||||
+{ $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_sys_kernshrpbang_perl" >&5
|
||||
+$as_echo "$ac_cv_sys_kernshrpbang_perl" >&6; }
|
||||
+# The above prints Checking ... result message to user.
|
||||
+ PERL_SHEBANG="$ac_cv_sys_kernshrpbang_perl"
|
||||
+
|
||||
+ if test A${_somian_ksbp_warn_empty+set} == Aset
|
||||
+ then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: In last check, doing $PERLINTERP -V:startperl yielded empty result! That should not happen." >&5
|
||||
+$as_echo "$as_me: WARNING: In last check, doing $PERLINTERP -V:startperl yielded empty result! That should not happen." >&2;}
|
||||
+ fi
|
||||
+# Inform user after printing result value
|
||||
+ if test A${_somian_ksbp_warn_defau+set} == Aset
|
||||
+ then { $as_echo "$as_me:${as_lineno-$LINENO}: Maybe Not good -" >&5
|
||||
+$as_echo "$as_me: Maybe Not good -" >&6;}
|
||||
+ { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: In last check perl's Config query did not work so we bunted: $_sHpB$PERLINTERP" >&5
|
||||
+$as_echo "$as_me: WARNING: In last check perl's Config query did not work so we bunted: $_sHpB$PERLINTERP" >&2;}
|
||||
+ else { $as_echo "$as_me:${as_lineno-$LINENO}: OK Good result - " >&5
|
||||
+$as_echo "$as_me: OK Good result - " >&6;}
|
||||
+ { $as_echo "$as_me:${as_lineno-$LINENO}: In last check we got a proper-looking answer from perl's Config: $_somian_shbangperl" >&5
|
||||
+$as_echo "$as_me: In last check we got a proper-looking answer from perl's Config: $_somian_shbangperl" >&6;}
|
||||
+ fi
|
||||
+ fi
|
||||
+
|
||||
+
|
||||
am__api_version='1.15'
|
||||
|
||||
ac_aux_dir=
|
||||
diff --git old/configure.ac 001/configure.ac
|
||||
index 8672d83..76c7405 100644
|
||||
--- old/configure.ac
|
||||
+++ 001/configure.ac
|
||||
@@ -1,4 +1,16 @@
|
||||
AC_INIT([parallel], [20180722], [bug-parallel@gnu.org])
|
||||
AC_INIT([parallel], [20180922], [bug-parallel@gnu.org])
|
||||
+
|
||||
+# on MSys2 prefer msys to native programs, especially perl
|
||||
+# native windows perl does not work for the time being
|
||||
@@ -629,60 +185,6 @@ index 20e5bd0..8f0c78a 100644
|
||||
|
||||
if DOCUMENTATION
|
||||
man_MANS = parallel.1 env_parallel.1 sem.1 sql.1 niceload.1 \
|
||||
diff --git old/src/Makefile.in 001/src/Makefile.in
|
||||
index 392ecd5..1fdde19 100644
|
||||
--- old/src/Makefile.in
|
||||
+++ 001/src/Makefile.in
|
||||
@@ -1,7 +1,7 @@
|
||||
-# Makefile.in generated by automake 1.15 from Makefile.am.
|
||||
+# Makefile.in generated by automake 1.15.1 from Makefile.am.
|
||||
# @configure_input@
|
||||
|
||||
-# Copyright (C) 1994-2014 Free Software Foundation, Inc.
|
||||
+# Copyright (C) 1994-2017 Free Software Foundation, Inc.
|
||||
|
||||
# This Makefile.in is free software; the Free Software Foundation
|
||||
# gives unlimited permission to copy and/or distribute it,
|
||||
@@ -185,6 +185,8 @@ PACKAGE_TARNAME = @PACKAGE_TARNAME@
|
||||
PACKAGE_URL = @PACKAGE_URL@
|
||||
PACKAGE_VERSION = @PACKAGE_VERSION@
|
||||
PATH_SEPARATOR = @PATH_SEPARATOR@
|
||||
+PERLINTERP = @PERLINTERP@
|
||||
+PERL_SHEBANG = @PERL_SHEBANG@
|
||||
SET_MAKE = @SET_MAKE@
|
||||
SHELL = @SHELL@
|
||||
STRIP = @STRIP@
|
||||
@@ -220,7 +222,6 @@ pdfdir = @pdfdir@
|
||||
prefix = @prefix@
|
||||
program_transform_name = @program_transform_name@
|
||||
psdir = @psdir@
|
||||
-runstatedir = @runstatedir@
|
||||
sbindir = @sbindir@
|
||||
sharedstatedir = @sharedstatedir@
|
||||
srcdir = @srcdir@
|
||||
@@ -229,7 +230,8 @@ target_alias = @target_alias@
|
||||
top_build_prefix = @top_build_prefix@
|
||||
top_builddir = @top_builddir@
|
||||
top_srcdir = @top_srcdir@
|
||||
-bin_SCRIPTS = parallel sql niceload parcat parset env_parallel \
|
||||
+PERL_BINS = parallel sql niceload parcat parset
|
||||
+bin_SCRIPTS = $(PERL_BINS) env_parallel \
|
||||
env_parallel.ash env_parallel.bash env_parallel.csh \
|
||||
env_parallel.dash env_parallel.fish env_parallel.ksh \
|
||||
env_parallel.mksh env_parallel.pdksh env_parallel.sh \
|
||||
@@ -615,6 +617,12 @@ uninstall-man: uninstall-man1 uninstall-man7
|
||||
install-exec-hook:
|
||||
rm $(DESTDIR)$(bindir)/sem || true
|
||||
$(LN_S) parallel $(DESTDIR)$(bindir)/sem
|
||||
+ @cd $(DESTDIR)$(bindir); \
|
||||
+ for bin in $(PERL_BINS); do \
|
||||
+ mv $$bin "$$bin".tmp; \
|
||||
+ sed '1s|.*|#!$(PERL_SHEBANG)|' "$$bin".tmp > $$bin; \
|
||||
+ rm -f "$$bin".tmp; \
|
||||
+ done
|
||||
|
||||
# Build documentation file if the tool to build exists.
|
||||
# Otherwise: Use the distributed version
|
||||
diff --git old/src/niceload 001/src/niceload
|
||||
index b17ceef..2667fff 100644
|
||||
--- old/src/niceload
|
||||
@@ -722,47 +224,16 @@ diff --git old/src/parallel 001/src/parallel
|
||||
index fd61160..d53bd0c 100644
|
||||
--- old/src/parallel
|
||||
+++ 001/src/parallel
|
||||
@@ -442,7 +442,7 @@ sub cat_partial {
|
||||
@@ -444,7 +444,7 @@ sub cat_partial {
|
||||
}
|
||||
});
|
||||
return "<". shell_quote_scalar($file) .
|
||||
return "<". Q($file) .
|
||||
- " perl -e '$script' @start_len |";
|
||||
+ " $^X -e '$script' @start_len |";
|
||||
}
|
||||
|
||||
sub spreadstdin {
|
||||
@@ -5001,11 +5001,8 @@ sub which {
|
||||
|
||||
if(not %pid_parentpid_cmd) {
|
||||
# Filter for SysV-style `ps`
|
||||
- my $sysv = q( ps -ef | perl -ane '1..1 and /^(.*)CO?MM?A?N?D/ and $s=length $1;).
|
||||
+ my $sysv = q( ps -ef | ).$^X.q( -ane '1..1 and /^(.*)CO?MM?A?N?D/ and $s=length $1;).
|
||||
q(s/^.{$s}//; print "@F[1,2] $_"' );
|
||||
- # Crazy msys: ' is not accepted on the cmd line, but " are treated as '
|
||||
- my $msys = q( ps -ef | perl -ane "1..1 and /^(.*)CO?MM?A?N?D/ and $s=length $1;).
|
||||
- q(s/^.{$s}//; print qq{@F[1,2] $_}" );
|
||||
# BSD-style `ps`
|
||||
my $bsd = q(ps -o pid,ppid,command -ax);
|
||||
%pid_parentpid_cmd =
|
||||
@@ -5021,7 +5018,7 @@ sub which {
|
||||
'hpux' => $sysv,
|
||||
'linux' => $sysv,
|
||||
'mirbsd' => $bsd,
|
||||
- 'msys' => $msys,
|
||||
+ 'msys' => $sysv,
|
||||
'MSWin32' => $sysv,
|
||||
'netbsd' => $bsd,
|
||||
'nto' => $sysv,
|
||||
@@ -5528,7 +5525,7 @@ sub memfree_recompute {
|
||||
$perlscript .= 'if($^O eq "'.$os.'") { '.$script_of{$os}.'}';
|
||||
}
|
||||
$perlscript =~ s/[\t\n ]+/ /g;
|
||||
- $script = "perl -e " . ::shell_quote_scalar($perlscript);
|
||||
+ $script = "$^X -e " . ::shell_quote_scalar($perlscript);
|
||||
}
|
||||
return $script;
|
||||
}
|
||||
@@ -5551,7 +5548,7 @@ sub limit {
|
||||
@@ -5560,7 +5557,7 @@ sub limit {
|
||||
(tmp=$(tempfile);
|
||||
LANG=C iostat -x 1 2 > $tmp;
|
||||
mv $tmp $io_file) &
|
||||
@@ -771,7 +242,7 @@ index fd61160..d53bd0c 100644
|
||||
for(reverse <>) {
|
||||
/Device:/ and last;
|
||||
/(\S+)$/ and $max = $max > $1 ? $max : $1; }
|
||||
@@ -5578,7 +5575,7 @@ sub limit {
|
||||
@@ -5587,7 +5584,7 @@ sub limit {
|
||||
ps ax -o state,command |
|
||||
grep -E '^[DOR].[^[]' |
|
||||
wc -l |
|
||||
@@ -780,16 +251,7 @@ index fd61160..d53bd0c 100644
|
||||
};
|
||||
export -f load;
|
||||
load %s;
|
||||
@@ -5784,7 +5781,7 @@ sub swap_activity {
|
||||
$perlscript .= 'if($^O eq "'.$os.'") { print `'.$vmstat{$os}[0].' | awk "{print ' .
|
||||
$vmstat{$os}[1] . '}"` }';
|
||||
}
|
||||
- $script = "perl -e " . ::shell_quote_scalar($perlscript);
|
||||
+ $script = "$^X -e " . ::shell_quote_scalar($perlscript);
|
||||
}
|
||||
return $script;
|
||||
}
|
||||
@@ -5831,7 +5828,7 @@ sub loadavg_too_high {
|
||||
@@ -5841,7 +5838,7 @@ sub loadavg_too_high {
|
||||
# aix => "ps -ae -o state,command" # state wrong
|
||||
# bsd => "ps ax -o state,command"
|
||||
# sysv => "ps -ef -o s -o comm"
|
||||
@@ -798,7 +260,7 @@ index fd61160..d53bd0c 100644
|
||||
# /(Name|Pid|Ppid|State):\s+(\S+)/ and print "$2\t";' /proc/*/status |
|
||||
# awk '{print $2,$1}'
|
||||
# dec_osf => bsd
|
||||
@@ -5849,14 +5846,14 @@ sub loadavg_too_high {
|
||||
@@ -5859,14 +5856,14 @@ sub loadavg_too_high {
|
||||
# svr5 => sysv
|
||||
# ultrix => ps -ax | awk '{print $3,$5}'
|
||||
# unixware => ps -el|awk '{print $2,$14,$15}'
|
||||
@@ -815,7 +277,7 @@ index fd61160..d53bd0c 100644
|
||||
/(Name|Pid|Ppid|State):\s+(\S+)/ and print "$2\t";' /proc/*/status |
|
||||
awk '{print $2,$1}' };
|
||||
$dummy="echo S COMMAND;echo R dummy";
|
||||
@@ -5884,7 +5881,7 @@ sub loadavg_too_high {
|
||||
@@ -5894,7 +5891,7 @@ sub loadavg_too_high {
|
||||
'ultrix' => "ps -ax | awk '{print \$3,\$5}'",
|
||||
);
|
||||
print `$ps{$^O}`;
|
||||
@@ -824,21 +286,21 @@ index fd61160..d53bd0c 100644
|
||||
# The command is too long for csh, so base64_wrap the command
|
||||
$cmd = Job::base64_wrap($ps);
|
||||
}
|
||||
@@ -6780,7 +6777,7 @@ sub sct_hpux() {
|
||||
$cpu->{'cores'} =
|
||||
@@ -6794,7 +6794,7 @@ sub sct_hpux() {
|
||||
::qqx(qq{ /usr/bin/mpsched -s 2>&1 | grep 'Locality Domain Count' | awk '{ print \$4 }'});
|
||||
chomp($cpu->{'cores'});
|
||||
$cpu->{'threads'} =
|
||||
- ::qqx(qq{ /usr/bin/mpsched -s 2>&1 | perl -ne '/Processor Count\\D+(\\d+)/ and print "\$1\n"'});
|
||||
+ ::qqx(qq{ /usr/bin/mpsched -s 2>&1 | $^X -ne '/Processor Count\\D+(\\d+)/ and print "\$1\n"'});
|
||||
- ::qqx(qq{ /usr/bin/mpsched -s 2>&1 | perl -ne '/Processor Count\\D+(\\d+)/ and print "\$1"'});
|
||||
+ ::qqx(qq{ /usr/bin/mpsched -s 2>&1 | $^X -ne '/Processor Count\\D+(\\d+)/ and print "\$1"'});
|
||||
|
||||
if(grep { /\d/ } values %$cpu) {
|
||||
return $cpu;
|
||||
@@ -7507,19 +7504,19 @@ sub empty_input_wrapper {
|
||||
# BUG It is not not known how to calculate this
|
||||
@@ -7522,19 +7522,19 @@ sub empty_input_wrapper {
|
||||
exit ($?&127 ? 128+($?&127) : 1+$?>>8)
|
||||
}
|
||||
});
|
||||
- ::debug("run",'Empty wrap: perl -e '.::shell_quote_scalar($script)."\n");
|
||||
+ ::debug("run","Empty wrap: $^X -e ".::shell_quote_scalar($script)."\n");
|
||||
- ::debug("run",'Empty wrap: perl -e '.::Q($script)."\n");
|
||||
+ ::debug("run",'Empty wrap: $^X -e '.::Q($script)."\n");
|
||||
if($Global::cshell
|
||||
and
|
||||
length $command > 499) {
|
||||
@@ -847,17 +309,17 @@ index fd61160..d53bd0c 100644
|
||||
+ # $command = "$^X -e '".base64_zip_eval()."' ".
|
||||
# join" ",string_zip_base64(
|
||||
# 'exec "'.::perl_quote_scalar($command).'"');
|
||||
- return 'perl -e '.::shell_quote_scalar($script)." ".
|
||||
+ return "$^X -e ".::shell_quote_scalar($script)." ".
|
||||
- return 'perl -e '.::Q($script)." ".
|
||||
+ return '$^X -e '.::Q($script)." ".
|
||||
base64_wrap("exec \"$Global::shell\",'-c',\"".
|
||||
::perl_quote_scalar($command).'"');
|
||||
} else {
|
||||
- return 'perl -e '.::shell_quote_scalar($script)." ".
|
||||
+ return "$^X -e ".::shell_quote_scalar($script)." ".
|
||||
$Global::shell." -c ".::shell_quote_scalar($command);
|
||||
- return 'perl -e '.::Q($script)." ".
|
||||
+ return '$^X -e '.::Q($script)." ".
|
||||
$Global::shell." -c ".::Q($command);
|
||||
}
|
||||
}
|
||||
@@ -7812,7 +7809,7 @@ sub total_failed {
|
||||
@@ -7827,7 +7827,7 @@ sub total_failed {
|
||||
# Command to remove files and dirs (given as args) without
|
||||
# affecting the exit value in $?/$status.
|
||||
if(not $script) {
|
||||
@@ -866,7 +328,7 @@ index fd61160..d53bd0c 100644
|
||||
::spacefree(0,q{
|
||||
$bash=shift;
|
||||
$csh=shift;
|
||||
@@ -7846,7 +7843,7 @@ sub total_failed {
|
||||
@@ -7861,7 +7861,7 @@ sub total_failed {
|
||||
# * cat > fifo
|
||||
# * waitpid to get the exit code from $command
|
||||
# * be less than 1000 chars long
|
||||
@@ -875,7 +337,7 @@ index fd61160..d53bd0c 100644
|
||||
(::spacefree
|
||||
(0, q{
|
||||
($s,$c,$f) = @ARGV;
|
||||
@@ -7951,7 +7948,7 @@ sub wrapped {
|
||||
@@ -7963,7 +7960,7 @@ sub wrapped {
|
||||
$command = $self->sshlogin_wrap($command);
|
||||
if(@Global::cat_prepends) {
|
||||
# --pipepart: prepend:
|
||||
@@ -884,7 +346,7 @@ index fd61160..d53bd0c 100644
|
||||
# sysseek(STDIN,shift,0) || die; $left = shift;
|
||||
# while($read = sysread(STDIN,$buf, ($left > 131072 ? 131072 : $left))){
|
||||
# $left -= $read; syswrite(STDOUT,$buf);
|
||||
@@ -7977,7 +7974,7 @@ sub wrapped {
|
||||
@@ -7989,7 +7986,7 @@ sub wrapped {
|
||||
and
|
||||
length $command > 499) {
|
||||
# csh does not like words longer than 1000 (499 quoted)
|
||||
@@ -893,43 +355,43 @@ index fd61160..d53bd0c 100644
|
||||
# join" ",string_zip_base64(
|
||||
# 'exec "'.::perl_quote_scalar($command).'"');
|
||||
$command = base64_wrap("exec \"$Global::shell\",'-c',\"".
|
||||
@@ -8099,7 +8096,7 @@ sub base64_wrap {
|
||||
@@ -8111,7 +8108,7 @@ sub base64_wrap {
|
||||
# $shell_command = shell command that runs $eval_string
|
||||
my $eval_string = shift;
|
||||
return
|
||||
- "perl -e ".
|
||||
+ "$^X -e ".
|
||||
::shell_quote_scalar(base64_zip_eval())." ".
|
||||
::Q(base64_zip_eval())." ".
|
||||
join" ",::shell_quote(string_zip_base64($eval_string));
|
||||
}
|
||||
@@ -8300,7 +8297,7 @@ sub sshlogin_wrap {
|
||||
@@ -8312,7 +8312,7 @@ sub sshlogin_wrap {
|
||||
# csh does not deal well with $ENV with \n
|
||||
$self->{'sshlogin_wrap'} = base64_wrap($perl_code);
|
||||
} else {
|
||||
- $self->{'sshlogin_wrap'} = "perl -e ".::shell_quote_scalar($perl_code);
|
||||
+ $self->{'sshlogin_wrap'} = "$^X -e ".::shell_quote_scalar($perl_code);
|
||||
- $self->{'sshlogin_wrap'} = "perl -e ".::Q($perl_code);
|
||||
+ $self->{'sshlogin_wrap'} = "$^X -e ".::Q($perl_code);
|
||||
}
|
||||
} else {
|
||||
$self->{'sshlogin_wrap'} = $command;
|
||||
@@ -8317,7 +8314,7 @@ sub sshlogin_wrap {
|
||||
@@ -8329,7 +8329,7 @@ sub sshlogin_wrap {
|
||||
my $remote_command = $pwd.$envset.$bashfuncset.
|
||||
'@ARGV="'.::perl_quote_scalar($command).'";'.
|
||||
monitor_parent_sshd_script();
|
||||
- $quoted_remote_command = "perl -e ".
|
||||
+ $quoted_remote_command = "$^X -e ".
|
||||
::shell_quote_scalar($remote_command);
|
||||
my $dq_remote_command =
|
||||
::shell_quote_scalar($quoted_remote_command);
|
||||
@@ -8329,7 +8326,7 @@ sub sshlogin_wrap {
|
||||
- $quoted_remote_command = "perl -e ". ::Q($remote_command);
|
||||
+ $quoted_remote_command = "$^X -e ". ::Q($remote_command);
|
||||
my $dq_remote_command = ::Q($quoted_remote_command);
|
||||
if(length $dq_remote_command > 999
|
||||
or
|
||||
@@ -8339,7 +8339,7 @@ sub sshlogin_wrap {
|
||||
# csh does not deal well with > 1000 chars in one word
|
||||
# csh does not deal well with $ENV with \n
|
||||
$quoted_remote_command =
|
||||
- "perl -e ".
|
||||
+ "$^X -e ".
|
||||
::shell_quote_scalar(::shell_quote_scalar(base64_zip_eval()))." ".
|
||||
- "perl -e ". ::Q(::Q(base64_zip_eval()))." ".
|
||||
+ "$^X -e ". ::Q(::Q(base64_zip_eval()))." ".
|
||||
join" ",::shell_quote(::shell_quote(string_zip_base64($remote_command)));
|
||||
} else {
|
||||
@@ -8657,7 +8654,7 @@ sub start {
|
||||
$quoted_remote_command = $dq_remote_command;
|
||||
@@ -8664,7 +8664,7 @@ sub start {
|
||||
my $bash =
|
||||
::shell_quote_scalar_default(
|
||||
"testfun() { rm $name; }; export -f testfun; ".
|
||||
@@ -938,7 +400,7 @@ index fd61160..d53bd0c 100644
|
||||
::shell_quote_scalar_default($script)
|
||||
);
|
||||
# Redirect STDERR temporarily,
|
||||
@@ -8869,14 +8866,14 @@ sub interactive_start {
|
||||
@@ -8876,14 +8876,14 @@ sub interactive_start {
|
||||
(
|
||||
"(".$actual_command.');'.
|
||||
# The triple print is needed - otherwise the testsuite fails
|
||||
|
||||
Reference in New Issue
Block a user