Select Code to Download

>> [0] C:/Perl64/lib/Term/ReadKey.pm :  274:     if ( ref($file) ) { r
+eturn $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: ???

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

sub rl_getc {
      my $key;                        # JP: Added missing declaration
...
        $key = $Term::ReadLine::Perl::term->get_c;
      }
}

sub getc_with_pending {

...

    $key;
}