… | … | ||
---|---|---|---|
162 | (tied ${$_[0]})->[0]; | 162 | (tied ${$_[0]})->[0]; |
163 | } | 163 | } |
164 | 164 | ||
165 | sub rbuf : lvalue { | 165 | sub rbuf : lvalue { |
166 | (tied ${$_[0]})->[3]; | 166 | (tied ${$_[0]})->[3]; |
167 | } | ||
168 | |||
169 | sub DESTROY { | ||
170 | # nop | ||
167 | } | 171 | } |
168 | 172 | ||
169 | sub AUTOLOAD { | 173 | sub AUTOLOAD { |
170 | my $self = tied ${$_[0]}; | 174 | my $self = tied ${$_[0]}; |
171 | 175 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |