]>
Commit | Line | Data |
---|---|---|
1 | --- brag-1.1.0/brag~ Sun Oct 15 20:13:24 2000 | |
2 | +++ brag-1.1.0/brag Wed Oct 17 08:41:34 2001 | |
3 | @@ -1,4 +1,4 @@ | |
4 | -#!/bin/sh | |
5 | +#!/usr/bin/tclsh | |
6 | # -*- Mode: Tcl -*- | |
7 | # | |
8 | # Name brag | |
9 | @@ -9,12 +9,6 @@ | |
10 | # Version $Id$ | |
11 | # | |
12 | # \ | |
13 | -which tclsh8.4 >/dev/null 2>&1 && exec tclsh8.4 "$0" ${1+"$@"}; \ | |
14 | -which tclsh8.3 >/dev/null 2>&1 && exec tclsh8.3 "$0" ${1+"$@"}; \ | |
15 | -which tclsh8.2 >/dev/null 2>&1 && exec tclsh8.2 "$0" ${1+"$@"}; \ | |
16 | -which tclsh8.1 >/dev/null 2>&1 && exec tclsh8.1 "$0" ${1+"$@"}; \ | |
17 | -which tclsh8.0 >/dev/null 2>&1 && exec tclsh8.0 "$0" ${1+"$@"}; \ | |
18 | -exec tclsh "$0" ${1+"$@"} | |
19 | ||
20 | # Check Tcl version | |
21 | if {[info tclversion] < 8.0} { |