Attachment 4342 Details for Bug 11134 – Code fragments for comment 10 links

Code fragments for comment 10 links

file_11134.txt (text/plain), 803 bytes, created by William Murphy on 2013-09-09 21:44:35 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: William Murphy

Created: 2013-09-09 21:44:35 CEST

Size: 803 bytes

patch

obsolete

/usr/lib/perl5/vendor_perl/5.16.2/Libconf/Glueconf/Networking/Sshd_config.pm:215
sub write_conf_restart_ssh {
  $sshd->write_conf($conf);
  reload_or_restart('sshd');
}

/usr/lib/perl5/vendor_perl/5.16.2/Libconf/Templates.pm:1053
sub set_uniq {
    my ($self, @keys) = @_;
    @keys > 0 or die 'you need to specify at least one key to compare elements';
    my @to_delete;
    my $i = 0;
    foreach my $atom (@{$self->{atoms}}) {
        my %atom2;
        @atom2{@keys} = deepcopy(@{$atom}{@keys});
        my @pos = $self->find_atom_pos(\%atom2);
        if (@pos > 1 && $pos[-1] != $i) {
            push @to_delete, $i;
        }
        $i++;
    }
    # reversed to delete down -> up, so that index are still valid
    delete_atom($self, $_) foreach reverse @to_delete;
}

Actions: View

Attachments on bug 11134: 4341 | 4342 | 4343 | 4344