8 my $mydir = dirname
($0);
14 if ( -x
"$mydir/tg-$name" ) {
15 my $usage = `"$mydir/tg-$name" -h 2>&1`;
17 $usage =~ s/^Usage:\s*//i;
19 } elsif ($name eq "help") {
20 return "tg help [-w] [<command>]";
25 while (my $line = <>) {
28 if ($line =~ /^[~]+$/ && $last =~ /^tg ([^\s]+)$/) {
29 my $usage = get_tg_usage
($1);
30 if (defined($usage)) {
32 print "\t", '``', $usage, '``', "\n";
40 print $last if defined($last);