# NOTE: Derived from lib/Term/ReadLine/Zoid/ViCommand.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Term::ReadLine::Zoid::ViCommand; #line 363 "lib/Term/ReadLine/Zoid/ViCommand.pm (autosplit into blib/lib/auto/Term/ReadLine/Zoid/ViCommand/vi_repeat.al)" sub vi_repeat { my ($self, undef, $cnt) = @_; undef $cnt if $$self{vi_command} !~ /^$cnt/; return $self->bell if ! length $$self{vi_last_cmd}; #print STDERR "repeat last command: $$self{vi_last_cmd}\n"; $$self{vi_last_cmd} =~ /^(\d*)(.)(.*)/; die "BUG: we ain't gonna loop all day !" if $2 eq '.'; $$self{vi_command} = defined $cnt ? $cnt : $1 || ''; $self->unread_key($3); $self->self_insert($2); } # end of Term::ReadLine::Zoid::ViCommand::vi_repeat 1;