Lines Matching full:readline

75   ok( $!==$err && !defined($_) => 'readline( DIRECTORY )' );
81     ok( $!==$err && !defined($_) => 'readline( DIRECTORY ) slurp mode' );
90 fresh_perl_is('print readline', 'foo',
92               'readline() defaults to *ARGV');
100     # This variable, the TARG for the readline is the core of this
102     # readline() has the variable revived old, "dead" values from the
106     # Do a readline into $line.
109 	# Do a SIGALARM aborted readline(). The underlying sv_gets()
121 	    $line = readline $fh;
130                 : "Interrupted readline() test couldn't get interrupted: $errno";
134 	$line = readline $fh;
172     is(   $once,  "once\n", "readline read first line ok" );
177         todo_skip( 'readline not interrupted by alarm on VMS -- why?' ) if $^O eq 'VMS';
179         isnt( $twice, "once\n", "readline didn't re-return things when interrupted" );
184         todo_skip( 'readline not interrupted by alarm on VMS -- why?' ) if $^O eq 'VMS';
185         local our $TODO = "bad readline returns '', not undef";
186         is( $twice, undef, "readline returned undef when interrupted" );
197     $line .= readline $in;
209     $line .= readline $in;
221     $line .= readline $in;
235     $line .= readline $in;
255 # <$foo> versus readline($foo) should not affect vivification.
262 readline($yunk);
263 ok !defined *$yunk, "readline does not autovivify";
270 readline $f{g};
275 readline *{$f{g}};
276 is tell, tell *foom, 'readline *$glob_copy sets PL_last_in_gv';
280 readline undef;
281 is ${^LAST_FH}, undef, '${^LAST_FH} after readline undef';
287     like $w, qr/^readline\(\) on unopened filehandle y at .*\n(?x:
302     ok(!<$fh>, "fail to readline file opened for write");
303     ok($fh->error, "error after trying to readline file opened for write");