Select Code to Download

sub change {
    my $master = shift;
...
    warn "could not update $dn: ", $err->text, ' (err=', $err->code,  
+")\n" if $err->code > 0;
    $err->code > 0 ? 0 : 1;
}