>> [0] C:/Perl64/lib/Term/ReadKey.pm :  274:     if ( ref($file) ) { return $file; }    # Reference is fine
>> [0] (eval 9)[C:/Perl64/lib/Term/ReadKey.pm:522]:    3: ???
>> [0] (eval 9)[C:/Perl64/lib/Term/ReadKey.pm:522]:    7: ???
>> [0] (eval 9)[C:/Perl64/lib/Term/ReadKey.pm:522]:    8: ???

##</code><code>##

sub ReadKey {
  my($File) = normalizehandle((@_>1?$_[1]:\*STDIN));
	if ($_[0]) {
		Win32PeekChar($File, $_[0]);
	} else {
		getc $File;
	}
	#if ($_[0]!=0) {return undef if !Win32PeekChar($File, $_[0])};
	#getc $File;
}

##</code><code>##

sub rl_getc {
	  my $key;                        # JP: Added missing declaration
	  if (defined $term_readkey) { # XXXX ???
	    $Term::ReadLine::Perl::term->Tk_loop 
	      if $Term::ReadLine::toloop && defined &Tk::DoOneEvent;
	    $key = Term::ReadKey::ReadKey(0, $term_IN); ### 2082
	  } else {
	    $key = $Term::ReadLine::Perl::term->get_c;
	  }
}

##</code><code>##

sub getc_with_pending {

    my $key = @Pending ? shift(@Pending) : &$rl_getc;

    # Save keystrokes for vi '.' command
    push(@$Dot_buf, $key) if $Dot_buf;

    $key;
}