File: update-control.pl

package info (click to toggle)
rakudo 2018.12-5
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 27,488 kB
  • sloc: perl: 6,578; ansic: 2,735; java: 2,528; cpp: 152; sh: 91; makefile: 29
file content (27 lines) | stat: -rw-r--r-- 749 bytes parent folder | download | duplicates (6)
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
#!/usr/bin/perl

use strict;
use warnings;
use Config::Model 2.085 qw/cme/;
use 5.10.0;

my $control = 'debian/control';

my $status = `git status --porcelain $control`;

die "$control is changed. Please commit or reset this file\n" if $status;

my $nqp_str = `nqp --version`;
chomp $nqp_str;
my ($nqp_v, $moar_v) 
    = ($nqp_str =~ /nqp version ([\d.]+) built on MoarVM version ([\d.]+)/);

die "Can't extract versions from '$nqp_str'\n"
    unless defined $nqp_v and defined $moar_v;

cme('dpkg-control')->modify(
    qq!source Build-Depends:=~"s/moarvm.*/moarvm-dev (>= $moar_v)/"! .
    qq!       Build-Depends:=~"s/nqp.*/nqp (>= $nqp_v)/"!
);

system(qw/git commit/, "-m" => "control: update moarvm-dev and nqp dep versions (cme)", $control);