Log Module - Loglevel zur Laufzeit ändern - #75064 (Allgemeines zu Perl)

weismat

2007-03-16 12:29

User since
2003-08-18
142 Artikel
BenutzerIn
[default_avatar]

[quote=renee,16.03.2007, 09:57]Der Patch dürfte ja wohl nicht allzu schwierig sein:

Code: (dl )

sub min_level{
    sub ($self,$min) = @_;
    $self->{min_level} = $min if defined $min;
    return $self->{min_level};
}

sub max_level{
    sub ($self,$max) = @_;
    $self->{max_level} = $max if defined $max;
    return $self->{max_level};
}

Und dann im Skript

Code: (dl )

1
2

$file->min_level($new_min_level);
$file->max_level($new_max_level);

(ungetestet)[/quote]
Im Objekt gibt es zweimal min_level und max_level.
Daher wäre folgender Code richtig...Werde das mal testen und dann schauen, wie man einen Patch submittet.

Code: (dl )

sub min_level{
    sub ($self,$min) = @_;
    $self->{min_level} = $min if defined $min;
    return $self->{min_level};
}

sub max_level{
    sub ($self,$max) = @_;
    $self->{max_level} = $max if defined $max;
    return $self->{params}->{max_level};
}

\n\n