perl

#!/bin/bash
#!/bin/sh
# Use /bin/bash for exec -a

# perl(1) wrapper
# Copyright 2015-2023 Rivoreo
#
# Permission is hereby granted, free of charge, to any person obtaining
# a copy of this software and associated documentation files (the
# "Software"), to deal in the Software without restriction, including
# without limitation the rights to use, copy, modify, merge, publish,
# distribute, sublicense, and/or sell copies of the Software, and to
# permit persons to whom the Software is furnished to do so, subject to
# the following conditions:
#
# The above copyright notice and this permission notice shall be included
# in all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.


REAL_PERL=/usr/lib/perl5/5.8.0/perl
argv0="${0##*/}"
set +H > /dev/null 2>&1
print_escaped() {
	local q
	case "$1" in
		"")
			printf '""'
			return
			;;
		*[\~\#\&\*\(\)\{\}\;\ \	\[\]]*)
			q=1
			printf \"
			;;
		*)
			q=
			;;
	esac
	printf %s "$1" | sed -E "s/([\\\`\$\"])/\\\\\\1/g"
	[ -n "$q" ] && printf \"
}
{
	printf '[%s] UID=%s PWD=' "`date +%F.%T.%Z`" "$UID"
	print_escaped "$PWD"
	printf " %s" "$0"
	for a in "$@"; do
		printf \ 
		print_escaped "$a"
	done
	printf ' (#=%s)\n' $#
} >> /var/log/perl.log
case "$argv0" in
	perl*)
		;;
	*)
		exec -a "$argv0" $REAL_PERL "$@"
		;;
esac
case "$1" in
	--)
		shift
		;;
	-*)
		exec -a "$argv0" $REAL_PERL "$@"
		;;
esac
[ $# -lt 1 ] || [ "$1" = - ] && exec -a "$argv0" $REAL_PERL
if [ ! -e "$1" ]; then
	printf "Can't open perl script \"%s\": No such file or directory" "$1" 1>&2
	exit 2
fi
if [ "`dd bs=1 count=3 if=\"$1\" 2> /dev/null`" = "`printf '\\xef\\xbb\\xbf'`" ]; then
	script="$1"
	shift
	{ printf \\000; cat "$script"; } | $REAL_PERL -- - "$@"
	exit
fi
if sed 1!d "$1" | grep -Eq ^\#!.+; then
	script="$1"
	shift
	sed 1c\# "$script" | $REAL_PERL -- - "$@"
	exit
fi
exec -a "$argv0" $REAL_PERL -- "$@"