Lines Matching refs:console

238     my $console;
244 	$console = $devtty;
246        $console = 'CONIN$';
249 	$console = "sys\$command";
251 	$console = "/dev/con";
253 	$console = undef;
256     $consoleOUT = $console unless defined $consoleOUT;
257     $console = "&STDIN" unless defined $console;
258     if ($console eq $devtty && !open(my $fh, "<", $console)) {
259       $console = "&STDIN";
265     ($console,$consoleOUT);
274     my($console, $consoleOUT) = $_[0]->findConsole;
278     open FIN, (( $^O eq 'MSWin32' && $console eq 'CONIN$' ) ? '+<' : '<' ), $console;