aboutsummaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorGravatar Francois Perrad <fperrad@gmail.com>2019-06-09 16:37:19 +0200
committerGravatar Arnout Vandecappelle (Essensium/Mind) <arnout@mind.be>2019-06-09 23:37:04 +0200
commit280149ce60774aab6a75e3f257185b0d6d2b144e (patch)
tree9705aa5ad29b32717e62575c42bbe0c6b73f567a /utils
parent549e8a7e338999a988935a9f24f44416f568ebc4 (diff)
downloadbuildroot-280149ce60774aab6a75e3f257185b0d6d2b144e.tar.gz
buildroot-280149ce60774aab6a75e3f257185b0d6d2b144e.tar.bz2
utils/scancpan: fix test file creation on br-external
first, add the creation of the needed subdirectories Signed-off-by: Francois Perrad <francois.perrad@gadz.org> Signed-off-by: Arnout Vandecappelle (Essensium/Mind) <arnout@mind.be>
Diffstat (limited to 'utils')
-rwxr-xr-xutils/scancpan7
1 files changed, 5 insertions, 2 deletions
diff --git a/utils/scancpan b/utils/scancpan
index 0e7585e312..1fccc980af 100755
--- a/utils/scancpan
+++ b/utils/scancpan
@@ -479,6 +479,7 @@ use Fatal qw(open close);
use Getopt::Long;
use Pod::Usage;
use File::Basename;
+use File::Path qw(make_path);
use Module::CoreList;
use HTTP::Tiny;
use Safe;
@@ -715,9 +716,10 @@ while (my ($distname, $dist) = each %dist) {
my $mkname = $dirname . q{/} . $fsname . q{.mk};
my $hashname = $dirname . q{/} . $fsname . q{.hash};
my $brname = brname( $fsname );
- my $testname = q{support/testing/tests/package/test_} . lc $brname . q{.py};
+ my $testdir = q{support/testing/tests/package};
+ my $testname = $testdir . q{/test_} . lc $brname . q{.py};
unless (-d $dirname) {
- mkdir $dirname;
+ make_path $dirname;
$new_pkgs = 1;
}
if ($need_target{$distname} && ($force || !-f $cfgname)) {
@@ -815,6 +817,7 @@ while (my ($distname, $dist) = each %dist) {
my $mark = $is_xs{$distname} ? q{ XS} : q{};
my @indirect = (get_indirect_dependencies( $distname ));
say qq{write ${testname}} unless $quiet;
+ make_path $testdir unless -d $testdir;
open my $fh, q{>}, $testname;
say {$fh} qq{from tests.package.test_perl import TestPerlBase};
say {$fh} qq{};