--- toast 2004/11/08 05:01:07 1.361 +++ toast 2004/12/02 06:28:30 1.362 @@ -149,7 +149,7 @@ sub dirname($) { my($arg) = @_; $arg =~ s|/[^/]*$|| ? $arg : "."; } sub basename($) { my($arg) = @_; $arg =~ s|.*/||g; $arg; } -sub stripext($) { my($arg) = @_; $arg =~ s/(\.tar)?(\.[a-z]\w*)?$//i; $arg; } +sub stripext($) { my($a) = @_; $a =~ s/(\.tar(\.g?z)?)?(\.[a-z]\w*)?$//i; $a; } sub stripquery($) { my($arg) = @_; $arg =~ s/\?.*$//; $arg; } sub path(@) @@ -2120,8 +2120,7 @@ return false if $url =~ m/\#/; my($noquery) = stripquery($url); return false unless $noquery =~ m!\.\w+$!; - return false if $noquery =~ - m!\.(html?|php|txt|gif|jpg|png|css|asc|sum|sig|sign|lsm)$!i; + return false if $noquery =~ m!\.(html?|php|txt|diff|gif|jpg|png|css|asc|sum|sig|sign|lsm|md5)(\.\w\w)?$!i; return true unless defined($name); my($basename) = basename($noquery); return false unless $basename =~ /\Q$name\E/i; @@ -6728,6 +6727,7 @@ - autofind chooses "libraries only" version of xfig - build fails for: jikes, sirc, netcat, lcab, gv, bittorrent, xmlcatmgr - "toast edit" leaves things in an odd state if you hang up on it + - "toast rename" is more case-sensitive than it ought to be Wish list: