# | Line 118 | Line 118 | sub flags() | |
---|---|---|
118 | } | |
119 | } | |
120 | ||
121 | + | sub updateflags() |
122 | + | { |
123 | + | my $self=shift; |
124 | + | my ($flag,$flagvalue) = @_; |
125 | + | # Reset: |
126 | + | if (exists $self->{FLAGS}->{$flag}) |
127 | + | { |
128 | + | delete $self->{FLAGS}->{$flag}; |
129 | + | } |
130 | + | # Reinsert: |
131 | + | $self->flags($flag,$flagvalue); |
132 | + | } |
133 | + | |
134 | sub allflags() | |
135 | { | |
136 | my $self=shift; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |