Feb 22, 1999, 10:04 AM
Administrator (9387 posts)
Feb 22, 1999, 10:04 AM
Post #2 of 2
Views: 1827
Sure, in list_files just add:
next FILE if (($file =~ /^\./) and ($file ne '..'));
right after (around line 394):
FILE: foreach $file (@ls) {
Hope that helps,
Alex