Re: Useful addition to Perl?

[hossman]

I don't know about mucking with the internals of glob, but I'm with perrin, given the current push to move stuff out of the core, this sounds like a really straight forward module to just include with -M ...

# Recurse.pm
use strict;
use warnings;
use File::Find;

BEGIN {
    my @my_argv = ();
    foreach my $arg (@ARGV) {
        find({ "wanted" => sub { push @my_argv, $_; 1; },
               "no_chdir" => 1
               },
             $arg);
    }
    @ARGV = @my_argv;
}
1;

(Anyone who wants to package that up, put it on CPAN, and deal with potential bug reports / feature requests; has my blessings. But please post a reply so others know it's available)