Lines Matching refs:File

46 use File::Basename ();
47 use File::Copy ();
48 use File::Spec;
49 use IO::File;
51 my $MyName = File::Basename::basename($0);
170     my $f = IO::File->new($file, 'r');
256         my $custom = File::Spec->join($dir, $source);
276     my $genericMap = File::Spec->join($platformDir, "syscall.map");
292         my $syscallFile = File::Spec->join($platformDir, $platformName, $arch, "syscall.map");
295         push(@files, IO::File->new($syscallFile, 'r'));
297         push(@files, IO::File->new($genericMap, 'r'));
454     my $custom = File::Spec->join($CustomDir, $_);
455     my $path = File::Spec->join($OutDir, $_);
457     File::Copy::copy($custom, $path) || die "$MyName: copy($custom, $path): $!\n";
468 	my $outpath = File::Spec->join($OutDir, $srcname);
471 		my $custom = File::Spec->join($CustomDir, $$sym{is_custom});
472 		File::Copy::copy($custom, $outpath);
476 		my $f = IO::File->new($outpath, 'a');
481 		my $f = IO::File->new($outpath, 'w');
495 my $path = File::Spec->join($OutDir, 'stubs.list');
496 my $f = IO::File->new($path, 'w');
499 	printf $f File::Spec->join($OutDir, $s) . "\n";