diff options
Diffstat (limited to 'cpan/HTTP-Tiny/t/00-compile.t')
| -rw-r--r-- | cpan/HTTP-Tiny/t/00-compile.t | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/cpan/HTTP-Tiny/t/00-compile.t b/cpan/HTTP-Tiny/t/00-compile.t index 277185d8e5..6ce3690f2f 100644 --- a/cpan/HTTP-Tiny/t/00-compile.t +++ b/cpan/HTTP-Tiny/t/00-compile.t @@ -1,12 +1,4 @@ #!perl -# -# This file is part of HTTP-Tiny -# -# This software is copyright (c) 2011 by Christian Hansen. -# -# This is free software; you can redistribute it and/or modify it under -# the same terms as the Perl 5 programming language system itself. -# use strict; use warnings; @@ -32,7 +24,18 @@ find( 'lib', ); -my @scripts = glob "bin/*"; +my @scripts; +if ( -d 'bin' ) { + find( + sub { + return unless -f; + my $found = $File::Find::name; + # nothing to skip + push @scripts, $found; + }, + 'bin', + ); +} my $plan = scalar(@modules) + scalar(@scripts); $plan ? (plan tests => $plan) : (plan skip_all => "no tests to run"); |