view release on metacpan or  search on metacpan

contrib/boottool.pl  view on Meta::CPAN

    @bootconfig = @newconfig;

    if ( defined $param{'make-default'} || defined $param{'boot-once'} ) {
        &set_default( $param{position} );
    }
    print "Added: $param{'title'}.\n";
}

# Update kernel args

sub update_grub {
    my %params = @_;

    print("Updating kernel.\n") if &debug() > 1;

    if ( !defined $params{'update-kernel'} && !defined $params{'xenhyper-args'}
        || ( !defined $params{'args'} && !defined $params{'remove-args'} 
        && !defined $params{'xenhyper-args'} ) )
    {
        warn
"ERROR:  kernel position or title (--update-kernel) and args (--args or --remove-args) required.\n";

lib/Linux/Bootloader/Grub.pm  view on Meta::CPAN

  if (defined $param{'make-default'} || defined $param{'boot-once'}) { 
    $self->set_default($param{position});
  }
  print "Added: $param{'title'}.\n";
}


# Update kernel args

sub update {
  my $self=shift;
  my %params=@_;

  print ("Updating kernel.\n") if $self->debug()>1;

  if (defined $params{'option'} && !defined $params{'update-kernel'}) {
    return $self->update_main_options(%params);
  } elsif (!defined $params{'update-kernel'} || (!defined $params{'args'} && !defined $params{'remove-args'} && !defined $params{'option'})) { 
    warn "ERROR:  kernel position or title (--update-kernel) and args (--args or --remove-args) required.\n";
    return undef;