[MacPerl] Deleting empty folders

[Ricardo Montiel]

Hi MacPerlers,

I need to delete all empty folders (up to three sub-levels, if this matters)
for a given location. But when I try the following:

#!perl -w
use strict;
use File::Find;
# use Mac::Files;

finddepth (sub {
             rmdir $_;
             # FSpDelete $_;
           }, 'Hard Disk:Support:);     # thanks merlyn


all the sub-level folders - either empty or with files inside them - are
deleted, except the top-level folder ('Support:'). Bear in mind that I tried
to make use of FSpDelete as well, but I get the same unwanted result.

What am I doing wrong?


Thanks for you help and suggestions,

-- Ricardo
use MacPerl;