OpenEuphoria

Pastey a dir patch

• Posted by useless_ Jul 06, 2013

if match("d",thisdir[dirndx][2]) then -- patch the ".zip = dir" bug
     lowername = lower(thisdir[1][1]) 
     if match(".z",lowername) or 
        match(".rar",lowername) or 
        match(".arc",lowername) or 
        match(".tgz",lowername) or 
	match(".7z",lowername) or 
        match(".cab",lowername) or 
        match(".tar",lowername) or 
        match(".bz",lowername) or 
	match(".gz",lowername) then  
        
       thisdir[dirndx][2] = "a"      
     end if 
     end if