version 1.9, 2005/01/07 16:55:40
|
version 1.10, 2005/04/27 09:58:12
|
Line 24 use MPIWGlib;
|
Line 24 use MPIWGlib;
|
|
|
$| = 1; # unblock IO |
$| = 1; # unblock IO |
|
|
my $version = "V0.9.6 (ROC 6.1.2005)"; |
my $version = "V0.9.7 (ROC 27.4.2005)"; |
|
|
$debug = 0; |
$debug = 0; |
|
|
Line 699 sub walk_convert_dir {
|
Line 699 sub walk_convert_dir {
|
if ($do_descend) { |
if ($do_descend) { |
foreach (sort @dirlist) { |
foreach (sort @dirlist) { |
# skip dot-directories |
# skip dot-directories |
next if (/^[.]+$/); |
next if (/^\..*$/); |
# skip junk directories |
# skip junk directories |
next if ($junk_files{$_}); |
next if ($junk_files{$_}); |
# recurse through the rest |
# recurse through the rest |