in reply to Descending a directory tree, returning a list of files

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)

[download]

Replies are listed 'Best First'.
Re^2: Descending a directory tree, returning a list of files
by Rodster001 (Pilgrim) on Jun 09, 2015 at 20:19 UTC
    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);
}

    [download]
    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).
[reply]
[d/l]

In Section Seekers of Perl Wisdom