--- toast	2005/09/15 01:50:14	1.407
+++ toast	2005/09/17 06:28:18	1.408
@@ -149,7 +149,7 @@
 
 sub dirname($) { my($arg) = @_; $arg =~ s|/[^/]*$|| ? $arg : "."; }
 sub basename($) { my($arg) = @_; $arg =~ s|.*/||g; $arg; }
-sub stripext($) { my($a) = @_; $a =~ s/(\.tar(\.g?z)?)?(\.[a-z]\w*)?$//i; $a; }
+sub stripext($) { my($a)=@_;$a=~s/(\.(t|sh)ar(\.g?z)?)?(\.[a-z]\w*)?$//i;$a }
 sub stripquery($) { my($arg) = @_; $arg =~ s/\?.*$//; $arg; }
 
 sub path(@)
@@ -2733,7 +2733,7 @@
 #!/bin/sh
 # $genby
 PATH=$path
-exec ccache $_ "\$\@"
+exec ccache $cmd "\$\@"
 ]);
   }
 }