diff options
author | Eduardo Chappa <echappa@gmx.com> | 2013-02-03 00:59:38 -0700 |
---|---|---|
committer | Eduardo Chappa <echappa@gmx.com> | 2013-02-03 00:59:38 -0700 |
commit | 094ca96844842928810f14844413109fc6cdd890 (patch) | |
tree | e60efbb980f38ba9308ccb4fb2b77b87bbc115f3 /web/src/cgi.tcl-1.10/fixline1 | |
download | alpine-094ca96844842928810f14844413109fc6cdd890.tar.xz |
Initial Alpine Version
Diffstat (limited to 'web/src/cgi.tcl-1.10/fixline1')
-rwxr-xr-x | web/src/cgi.tcl-1.10/fixline1 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/web/src/cgi.tcl-1.10/fixline1 b/web/src/cgi.tcl-1.10/fixline1 new file mode 100755 index 00000000..1cb57972 --- /dev/null +++ b/web/src/cgi.tcl-1.10/fixline1 @@ -0,0 +1,13 @@ +#!/depot/path/expect -- +# Synopsis: fixline1 newpath < input > output +# Author: Don Libes + +# Description: change first line of script to reflect new binary +# try to match any of the following first lines +#!expect ... +#!../expect ... +#!expectk ... +#!foo/bar/expectk ... +# +regsub "^#!(.*/)*(.*)" [gets stdin] "#!$argv/\\2" line1 +puts -nonewline "$line1\n[read stdin]" |