| … | … | ||
|---|---|---|---|
| 80 | } | 80 | } |
| 81 | 81 | ||
| 82 | sub check_balance { | 82 | sub check_balance { |
| 83 | my ($pl) = @_; | 83 | my ($pl) = @_; |
| 84 | 84 | ||
| 85 | pay_balance $pl if $pl->{rent}{balance} < 0; | 85 | pay_balance $pl if $pl->{rent}{balance} > 0; |
| 86 | 86 | ||
| 87 | $pl->{rent}{balance} >= 0 | 87 | $pl->{rent}{balance} <= 0 |
| 88 | } | 88 | } |
| 89 | 89 | ||
| 90 | sub find_apartment { | 90 | sub find_apartment { |
| 91 | my ($pl, $name) = @_; | 91 | my ($pl, $name) = @_; |
| 92 | 92 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |