unbreak with perl 5.30+; this script has code to reexecute using the perl

interpreter if it was run in a shell interpreter which uses $* in a command
intended for the shell; newer perl rejects running the script if this is
present
This commit is contained in:
sthen
2019-12-28 13:29:43 +00:00
parent 81f275b5e1
commit 3581c25253
@@ -0,0 +1,14 @@
$OpenBSD: patch-text2x_text2c_SH,v 1.1 2019/12/28 13:29:43 sthen Exp $
Index: text2x/text2c.SH
--- text2x/text2c.SH.orig
+++ text2x/text2c.SH
@@ -31,8 +31,6 @@ $spitshell >>text2c <<'!NO!SUBS!'
#
# 1989 2/16 MASUI Toshiyuki
#
-eval "exec /usr/local/bin/perl -S $0 $*"
- if $Shell_cannot_understand; #!
$0 =~ /[^\/]+$/ ; # get the name of this program
$program = $&;