|
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 |
![[BACK]](/cvs/cvsweb/icons/back.gif){kind=icon}
Return to scaleomat.pl CVS log ![[TXT]](/cvs/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvs/cvsweb/icons/dir.gif){kind=icon}
Up to [Repository] / scaleomat