--- 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 "\$\@" ]); } }