Philippe M. Chiasson wrote:
> + open $fh, '>', 'MANIFEST.SKIP' or die "open MANIFEST.SKIP: $!";
> + my $cwd = Cwd::cwd();
> + finddepth({ follow => 1, wanted => sub {
> + return if -d;
> + my $file = $File::Find::name;
> + $file =~ s,^$cwd/?,,;
For extra safety, this should be
$file =~ s,^\Q$cwd\E/?,,;
> + unless (exists $files{$file}) {
> + print $fh "$file\n";
And here :
print $fh "^\Q$file\E\$\n";
because MANIFEST.SKIP contains regular expressions.
(That said, at a glance, I'm not convinced this patch
is necessary.)
> + }
> + }}, Cwd::cwd());
> +
> close $fh;
> }
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
