lib/Devscripts/Salsa/update_safe.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

# launches check_projects and launch update_projects if user agrees with this changes
package Devscripts::Salsa::update_safe;

use strict;
use Devscripts::Output;
use Moo::Role;

with 'Devscripts::Salsa::check_repo';     # check_projects
with 'Devscripts::Salsa::update_repo';    # update_projects

sub update_safe {
    my $self = shift;
    my ($res, $fails) = $self->_check_repo(@_);
    return 0 unless ($res);
    return $res
      if (ds_prompt("$res projects misconfigured, update them ? (Y/n) ")
        =~ refuse);
    $Devscripts::Salsa::update_repo::prompt = 0;
    return $self->_update_repo(@$fails);
}

1;