version 1.18 | version 1.19 | |||
---|---|---|---|---|
|
| |||
foreach $tfile (sort @allfiles) { | foreach $tfile (sort @allfiles) { | |||
next if $tfile =~ /^\./; | next if $tfile =~ /^\./; | |||
next if $tfile =~ /~$/; | ||||
$file = $dir."/".$tfile; | $file = $dir."/".$tfile; | |||
$name = &basename($file,""); # DIR | $name = &basename($file,""); # DIR | |||
Legend:
|