| version 1.3 | version 1.4 | |||
|---|---|---|---|---|
|
| |||
| while ($file = readdir (DIR)) { | while ($file = readdir (DIR)) { | |||
| next if ($file eq "." || $file eq ".." || $file eq "CVS"); | next if ($file eq "." || $file eq ".." || $file eq "CVS"); | |||
| $file = "$dir/$file"; | $file = "$dir/$file"; | |||
| next if (-l $file); | ||||
| push (@dirs, $file) if (-d $file); | push (@dirs, $file) if (-d $file); | |||
| push (@maps, $file) if (-f $file); | push (@maps, $file) if (-f $file); | |||
| } | } |
Legend:
| ||||||