Re: Descending a directory tree, returning a list of files

[RonW]

You sub, _list_files, is expecting 2 parameters. You are only passing one. Since _list_files treats the second parameter as a reference, you need to pass a reference:

use strict;
use warnings;

my $cwd = getcwd;

my @file_list;

my $res = _list_files($cwd, \@file_list);

# definition of _list_files($cwd omitted)

[Rodster001]

That didn't solve the problem. If I comment out the line where it descends a sub-directory (and calls itself):

## dir, decend
if (-d $file) {

        ## sub-directory files
        #$files = _list_files($file, $files);
}

It works. Well, it returns all the files in the cwd as expected. But when that line is not commented out, if it finds a sub directory, it never returns to finish listing the files in the parent (the one we started in).