| … | … | ||
|---|---|---|---|
| 3 | cf::map->register (qr{^~([^/]+)(/.*)}); | 3 | cf::map->register (qr{^~([^/]+)(/.*)}); |
| 4 | 4 | ||
| 5 | sub init { | 5 | sub init { |
| 6 | my ($self) = @_; | 6 | my ($self) = @_; |
| 7 | 7 | ||
| 8 | $self->{user} = $1; | 8 | $self->{user} = $1; |
| 9 | $self->{orig_path} = $2; | 9 | $self->{orig_path} = $2; |
| 10 | $self->{deny_reset} = 1; #d# for now | ||
| 10 | } | 11 | } |
| 11 | 12 | ||
| 12 | sub load_path { | 13 | sub load_path { |
| 13 | my ($self) = @_; | 14 | my ($self) = @_; |
| 14 | 15 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |