Subject: | Removing dependency on File::Finder |
MIME-Version: | 1.0 |
X-Mailer: | MIME-tools 5.427 (Entity 5.427) |
Charset: | utf8 |
X-RT-Original-Encoding: | utf-8 |
Content-Type: | multipart/mixed; boundary="----------=_1255182655-2295-1067" |
Content-Length: | 0 |
Content-Type: | text/plain |
Content-Disposition: | inline |
Content-Transfer-Encoding: | binary |
Content-Length: | 430 |
I could not install Test::Fixme because the dependency of File::Finder.
As seen at http://matrix.cpantesters.org/?dist=File-Finder+0.53 this is
not unique and File::Finder has not been updated for four years.
I have rewritten my copy of Test::Fixme to use the core module
File::Find instead. I have attached the diff outputs if you want to use
the same solution. All tests pass on my Strawberry Perl 5.10.0.
Regards,
Johan Lodin
Subject: | Makefile.PL.diff |
MIME-Version: | 1.0 |
Content-Type: | multipart/mixed; boundary="----------=_1255181825-2295-1066" |
X-Mailer: | MIME-tools 5.427 (Entity 5.427) |
Charset: | utf8 |
Content-Length: | 0 |
Content-Type: | text/plain |
Content-Disposition: | inline |
Content-Transfer-Encoding: | binary |
X-RT-Original-Encoding: | iso-8859-1 |
Content-Length: | 0 |
Content-Type: | application/octet-stream; name="Makefile.PL.diff" |
Content-Disposition: | inline; filename="Makefile.PL.diff" |
Content-Transfer-Encoding: | base64 |
Content-Length: | 86 |
12c12
< 'File::Finder' => 0,
---
> 'File::Find' => 0,
Subject: | Fixme.pm.diff |
MIME-Version: | 1.0 |
Content-Type: | multipart/mixed; boundary="----------=_1255181818-2295-1065" |
X-Mailer: | MIME-tools 5.427 (Entity 5.427) |
Charset: | utf8 |
Content-Length: | 0 |
Content-Type: | text/plain |
Content-Disposition: | inline |
Content-Transfer-Encoding: | binary |
X-RT-Original-Encoding: | iso-8859-1 |
Content-Length: | 0 |
Content-Type: | application/octet-stream; name="Fixme.pm.diff" |
Content-Disposition: | inline; filename="Fixme.pm.diff" |
Content-Transfer-Encoding: | base64 |
Content-Length: | 471 |
7c7
< use File::Finder;
---
> use File::Find 'find';
134d133
< my @files = ();
137d135
<
140d137
< push @files, File::Finder->type('f')->in($path);
143c140,151
< # Find files using File::Finder.
---
> my @files;
> find(
> {
> wanted => sub {
> push @files, $File::Find::name
> if -f $File::Find::name;
> },
> no_chdir => 1,
> },
> @paths
> );
>
Subject: | Changes.diff |
MIME-Version: | 1.0 |
Content-Type: | multipart/mixed; boundary="----------=_1255181811-2295-1064" |
X-Mailer: | MIME-tools 5.427 (Entity 5.427) |
Charset: | utf8 |
Content-Length: | 0 |
Content-Type: | text/plain |
Content-Disposition: | inline |
Content-Transfer-Encoding: | binary |
X-RT-Original-Encoding: | iso-8859-1 |
Content-Length: | 0 |
Content-Type: | application/octet-stream; name="Changes.diff" |
Content-Disposition: | inline; filename="Changes.diff" |
Content-Transfer-Encoding: | base64 |
Content-Length: | 86 |
2a3,5
> 0.04_01 2009-10-10 (LODIN)
> - Replaced File::Finder with File::Find.
>