Skip Menu |

This queue is for tickets about the Test-Legal CPAN distribution.

Report information
The Basics
Id: 111528
Status: patched
Priority: 0/
Queue: Test-Legal

People
Owner: Nobody in particular
Requestors: EZARKO [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.10
Fixed in: (no value)



Subject: Can't stat ./script: No such file or directory at /System/Library/Perl/Extras/5.18/File/Find/Rule.pm line 594.
Using Test::Legal (via Dist::Zilla::Plugin::Test::Legal) on a project without a script directory warnings are generated when running "dzil release" such as the one above. It is a simple matter to check for the existence of the directory in order to avoid this warning.
*** Legal.pm.old 2016-01-28 13:46:04.000000000 -0800 --- Legal.pm.new 2016-01-28 13:45:49.000000000 -0800 *************** sub deannotate_dirs { *** 171,177 **** sub _build_copyright_ok { my ($class, $fun, $arg, $defaults) = @_; $arg = _values($arg, $defaults->{defaults}); # keys : base, dirs , meta ! my @dirs = map {$arg->{base} . "/$_"} @{$arg->{dirs}}; sub { return ('noop', $arg) if _in_mode($arg,'noop'); my $pat = shift; --- 171,177 ---- sub _build_copyright_ok { my ($class, $fun, $arg, $defaults) = @_; $arg = _values($arg, $defaults->{defaults}); # keys : base, dirs , meta ! my @dirs = grep {-d $_} map {$arg->{base} . "/$_"} @{$arg->{dirs}}; sub { return ('noop', $arg) if _in_mode($arg,'noop'); my $pat = shift;