Lines Matching refs:DIR
1157 if ( !opendir(DIR, $bd) ) {
1160 my @old_link_dirs = grep { /^src.m\d+/ } readdir(DIR);
1161 close(DIR);
1179 if ( !opendir(DIR, $old_link_dir) ) {
1182 my @links = grep { !(/\.lnk/ || /\.link/) } readdir(DIR);
1183 close(DIR);
1200 if ( !opendir(DIR, "$bd/ooo") ) {
1203 my @ooo_top_level_dirs = grep { !/^\./ } readdir(DIR);
1204 close(DIR);
1205 if ( !opendir(DIR, "$bd/sun") ) {
1208 my @so_top_level_dirs = grep { !/^\./ } readdir(DIR);
1209 close(DIR);
1321 if ( !opendir(DIR, "$platform_source") ) {
1324 my @zips = grep { /\.zip$/ } readdir(DIR);
1325 close(DIR);