Lines Matching refs:handle

1066     my $handle   = IO::Dir->new( $dir ) or runtime_error( $prefix, "Cannot read directory: $!" );
1067     my @entries  = File::Spec->no_upwards( $handle->read() );
1068     $handle->close() or runtime_error( $prefix, "Cannot read directory: $!" );
1379     my $handle;
1404         $handle = $file;
1408             $handle = IO::Zlib->new( $name, "rb" );
1410             $handle = IO::File->new( $name, "r" );
1412         if ( not defined( $handle ) ) {
1416     if ( defined( $handle ) ) {
1418             binmode( $handle );
1421                 ${ $opts{ -bulk } } = $handle->getline();
1423                 $bulk[ 0 ] = $handle->getline();
1427                 binmode( $handle, $opts{ -layer } );
1429             @bulk = $handle->getlines();
1437         $handle->close()
1528     my $handle;
1535         $handle = $file;
1541         $handle = IO::File->new( $name, $mode )
1545         binmode( $handle );
1547         binmode( $handle, $opts{ -layer } );
1551             $handle->print( $bulk );
1553                 $handle->print( "\n" );
1558             $handle->print( $$bulk );
1560                 $handle->print( "\n" );
1566                 $handle->print( $line );
1568                     $handle->print( "\n" );
1575     $handle->close()
1607     my $handle = $arg->{ handle }; # Handle to manipulate.
1617     $handle->flush();
1618     open( $save_handle, $mode . "&" . $handle->fileno() )
1668     open( $handle, $mode . "&" . $temp_handle->fileno() )
1685     my $handle = $arg->{ handle }; # Handle to save and set.
1699     $handle->close()
1722     open( $handle, $mode . "&" . $save_handle->fileno() )
1851     my $stdin  = { handle => \*STDIN,  mode => "<" };
1852     my $stdout = { handle => \*STDOUT, mode => ">" };
1853     my $stderr = { handle => \*STDERR, mode => ">" };
1878             $stderr->{ redir } = ${ $stdout->{ handle } };