| … | … | ||
|---|---|---|---|
| 77 | }; | 77 | }; |
| 78 | 78 | ||
| 79 | cf::register_command rename => $cf::TICK, sub { | 79 | cf::register_command rename => $cf::TICK, sub { |
| 80 | my ($ob, $arg) = @_; | 80 | my ($ob, $arg) = @_; |
| 81 | 81 | ||
| 82 | if ($arg =~ /^\s* (?: <([^>]+)> \s+)? to \s+ <([^>]+)> \s*$/x) { | 82 | if ($arg =~ /^\s* (?: <([^>]+)> \s+)? to \s+ <([^>]*)> \s*$/x) { |
| 83 | # compatibility syntax | 83 | # compatibility syntax |
| 84 | rename_to $ob, $1, $2; | 84 | rename_to $ob, $1, $2; |
| 85 | } elsif ($arg =~ / | 85 | } elsif ($arg =~ / |
| 86 | ^\s* | 86 | ^\s* |
| 87 | (?: | 87 | (?: |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |