forked from andk/cpanpm
-
Notifications
You must be signed in to change notification settings - Fork 1
/
SlayMakefile
45 lines (39 loc) · 1.14 KB
/
SlayMakefile
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
#
# $Id: SlayMakefile,v 2.4 2007/10/09 10:14:11 eserte Exp $
#
{
use lib "lib";
use CPAN::Kwalify;
use Data::Dumper;
use Kwalify qw(validate);
use YAML::Syck qw(LoadFile);
}
all:
dd-prefs: { map { s{\.yml$}{.dd}; $_ } glob("distroprefs/*.yml lib/CPAN/Kwalify/distroprefs.yml") }
%.dd: %.yml
{
my($self, $target) = @_;
(my $base = $target) =~ s{\.dd$}{};
my $file = $base . ".yml";
print STDERR "$base...\n";
my @y = LoadFile($file);
open my $ofh, ">", "$target~" or die $!;
print $ofh Data::Dumper->new(\@y)->Indent(1)->Useqq(1)->Purity(1)->Sortkeys(1)->Dump or die $!;
close $ofh or die $!;
rename "$target~", $target or die $!;
return; # note: return value gets printed!
}
validate:
{
my $errors = 0; my $files = 0;
my $distroprefs_path = $INC{"CPAN/Kwalify.pm"};
$distroprefs_path =~ s{\.pm$}{/distroprefs.yml};
my $schema = LoadFile($distroprefs_path);
for my $yml (glob("distroprefs/*.yml")) {
my $data = LoadFile($yml);
$errors++ if (!validate($schema, $data));
$files++;
}
if ($errors) { die "Found $errors errors" }
else { "Validation OK ($files files).\n" }
}