[MacPerl] Problem with FSpIterateDirectory

[Rob Sirota <rsirota@pobox.com> (by way of Vicki Brown)]

I am having a bit of a problem when using FSpIterateDirectory. I have a
top level folder that contains a lot of subfolder and files, I wish to
delete all file and folders inside this top level folder. I am getting
strange results:

When I call:
 FSpIterateDirectory($SDKVol,
      0,
      sub {
       local($temp) = @_;
       if (-f $temp) {
        print "File: ", $temp, "\n";
        }
       return 0;
      },
      "");

every file prints out, however if I put the delete in the sub some files
are skipped:

 FSpIterateDirectory($SDKVol,
      0,
      sub {
       local($temp) = @_;
       if (-f $temp) {
        print "File: ", $temp, "\n";
        FSpRstFLock($temp) or warn $^E;    # Unlock the file.
        FSpDelete($temp);    # Delete the file.
       }
       return 0;
      },
      "");

if I only have the FSpRstFLock() to unlock the file I see all of the
files..

Any suggestions?

Rob

===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org