jeans/motioneyeos
jeans/motioneyeos
1
0
Fork 0
mirror of https://github.com/motioneye-project/motioneyeos.git synced 2025-07-29 14:16:31 +00:00
Code Issues Packages Projects Releases Wiki Activity

utils/scancpan: fix test file creation on br-external

Browse Source 
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>
This commit is contained in:
Francois Perrad 2019-06-09 16:37:19 +02:00 committed by Arnout Vandecappelle (Essensium/Mind)
parent 549e8a7e33
commit 280149ce60
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/scancpan
View File

@ -479,6 +479,7 @@ use Fatal qw(open close);
use Getopt::Long; use Getopt::Long;
use Pod::Usage; use Pod::Usage;
use File::Basename; use File::Basename;
use File::Path qw(make_path);
use Module::CoreList; use Module::CoreList;
use HTTP::Tiny; use HTTP::Tiny;
use Safe; use Safe;
@ -715,9 +716,10 @@ while (my ($distname, $dist) = each %dist) {
my $mkname = $dirname . q{/} . $fsname . q{.mk}; my $mkname = $dirname . q{/} . $fsname . q{.mk};
my $hashname = $dirname . q{/} . $fsname . q{.hash}; my $hashname = $dirname . q{/} . $fsname . q{.hash};
my $brname = brname( $fsname ); 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) { unless (-d $dirname) {
mkdir $dirname; make_path $dirname;
$new_pkgs = 1; $new_pkgs = 1;
} }
if ($need_target{$distname} && ($force || !-f $cfgname)) { 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 $mark = $is_xs{$distname} ? q{ XS} : q{};
my @indirect = (get_indirect_dependencies( $distname )); my @indirect = (get_indirect_dependencies( $distname ));
say qq{write ${testname}} unless $quiet; say qq{write ${testname}} unless $quiet;
make_path $testdir unless -d $testdir;
open my $fh, q{>}, $testname; open my $fh, q{>}, $testname;
say {$fh} qq{from tests.package.test_perl import TestPerlBase}; say {$fh} qq{from tests.package.test_perl import TestPerlBase};
say {$fh} qq{}; say {$fh} qq{};