PC World 2005 December (Special)/PCWorld_2005-12_Special_cd.bin/Bezpecnost/lsti/lsti.exe/framework-2.5.exe/vi_repeat.al

Text File | 2005-04-27 | 768 b | 21 lines

# 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;