Home
last modified time | relevance | path

Searched refs:File (Results 1 – 25 of 530) sorted by relevance

12345678910>>...22

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A DInstall.pm21 use File::Spec;
22 my $Curdir = File::Spec->curdir;
23 my $Updir = File::Spec->updir;
88 use File::Basename qw(dirname);
89 use File::Copy qw(copy);
90 use File::Find qw(find);
91 use File::Path qw(mkpath);
92 use File::Compare qw(compare);
138 my $blib_lib = File::Spec->catdir('blib', 'lib');
139 my $blib_arch = File::Spec->catdir('blib', 'arch');
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/Temp/t/
H A Dsecurity.t12 use File::Spec;
20 use File::Temp qw/ tempfile unlink0 /;
45 File::Temp->safe_level( File::Temp::STANDARD );
53 File::Temp->safe_level( File::Temp::MEDIUM )
63 File::Temp->safe_level( File::Temp::HIGH )
97 DIR => File::Spec->tmpdir,
106 } elsif (File::Temp->safe_level() != File::Temp::STANDARD) {
108 my $skip2 = "Skip: " . File::Spec->tmpdir() . " possibly insecure: $@. " .
118 if ( $< < File::Temp->top_system_uid() ){
129 } elsif (File::Temp->safe_level() != File::Temp::STANDARD) {
H A Dmktemp.t10 use File::Spec;
11 use File::Path;
12 use File::Temp qw/ :mktemp unlink0 /;
20 my $template = File::Spec->catfile(File::Spec->tmpdir, 'wowserXXXX');
87 $template = File::Spec->catdir(File::Spec->tmpdir, 'tmpdirXXXXXX');
101 $template = File::Spec->catfile(File::Spec->tmpdir, 'mytestXXXXXX');
H A Dobject.t6 use File::Spec;
38 my $fh = new File::Temp( SUFFIX => '.txt' );
51 my $tempdir = File::Temp::tempdir( $template ,
52 DIR => File::Spec->curdir,
62 $fh = new File::Temp(
74 $fh = new File::Temp( DIR => $tempdir, UNLINK => 0 );
82 $fh = new File::Temp( TEMPLATE => 'helloXXXXXXX',
95 $fh = new File::Temp( TEMPLATE => 'permXXXXXXX', UNLINK => 0);
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/
H A Dfind.t39 use File::Spec;
45 require File::Spec::Unix;
46 @File::Spec::ISA = 'File::Spec::Unix';
48 require File::Find;
49 import File::Find;
56 File::Spec->curdir);
65 File::Spec->curdir);
94 chdir(File::Spec->updir);
125 printf "# \$File::Find::dir => '$File::Find::dir'\t\$_ => '$_'\n";
139 $File::Find::prune=1 if $_ eq 'faba';
[all …]
H A Dtaint.t45 use File::Find;
46 use File::Spec;
53 untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
59 untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
85 chdir File::Spec->updir;
104 print "# \$File::Find::dir => '$File::Find::dir'\n";
107 ok( $Expect_File{$_}, "Expected and found $File::Find::name" );
119 $File::Find::prune=1 if $_ eq 'faba';
123 print "# \$File::Find::dir => '$File::Find::dir'\n";
151 return File::Spec->catdir(@_);
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/
H A DSpec.t6 use File::Spec @File::Spec::EXPORT_OK ;
8 require File::Spec::Unix ;
9 require File::Spec::Win32 ;
29 require File::Spec::VMS ;
31 require File::Spec::OS2 ;
32 require File::Spec::Mac ;
33 require File::Spec::Epoc ;
34 require File::Spec::Cygwin ;
40 $root = File::Spec::Mac->rootdir();
564 @File::Spec::FakeWin32::ISA = qw(File::Spec::Win32);
[all …]
H A Drel2abs2rel.t25 use File::Spec;
30 $perl = File::Spec->catfile(File::Spec->curdir, $perl) unless
31 File::Spec->file_name_is_absolute($perl);
61 $perl = File::Spec->rel2abs($^X);
64 $perl = File::Spec->canonpath($perl);
67 $perl = safe_rel(File::Spec->abs2rel($perl));
70 $perl = safe_rel(File::Spec->canonpath($^X));
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dfinddepth.pl31 use File::Find ();
33 *name = *File::Find::name;
34 *prune = *File::Find::prune;
35 *dir = *File::Find::dir;
36 *topdir = *File::Find::topdir;
37 *topdev = *File::Find::topdev;
38 *topino = *File::Find::topino;
39 *topmode = *File::Find::topmode;
40 *topnlink = *File::Find::topnlink;
43 &File::Find::finddepth(\&wanted, @_);
H A Dfind.pl32 use File::Find ();
34 *name = *File::Find::name;
35 *prune = *File::Find::prune;
36 *dir = *File::Find::dir;
37 *topdir = *File::Find::topdir;
38 *topdev = *File::Find::topdev;
39 *topino = *File::Find::topino;
40 *topmode = *File::Find::topmode;
41 *topnlink = *File::Find::topnlink;
44 &File::Find::find(\&wanted, @_);
H A Dblib.pm40 use File::Spec;
56 $dir = File::Spec->curdir unless ($dir);
63 $blib = File::Spec->catdir($dir, "blib");
64 $blib_lib = File::Spec->catdir($blib, "lib");
68 $blib_arch = File::Spec->catdir($blib_lib, $MacPerl::Architecture);
72 $blib_arch = File::Spec->catdir($blib, "arch");
81 $dir = File::Spec->catdir($dir, File::Spec->updir);
H A DFindBin.pm98 use File::Basename;
99 use File::Spec;
135 foreach $dir (File::Spec->path)
137 my $scr = File::Spec->catfile($dir, $script);
163 $script = File::Spec->catfile(getcwd(), $script)
164 unless File::Spec->file_name_is_absolute($script);
176 $script = (File::Spec->file_name_is_absolute($linktext))
178 : File::Spec->catfile($RealBin, $linktext);
H A DAutoLoader.t9 use File::Spec;
10 use File::Path;
15 $dir = File::Spec->catdir( "auto-$$" );
22 my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
25 open(FOO, '>', File::Spec->catfile( $fulldir, 'foo.al' ))
34 open(BAR, '>', File::Spec->catfile( $fulldir, 'bar.al' ))
43 open(BAZ, '>', File::Spec->catfile( $fulldir, 'bazmarkhian.al' ))
52 open(BLECH, '>', File::Spec->catfile( $fulldir, 'blechanawilla.al' ))
62 open(BLECH, '>', File::Spec->catfile( $fulldir, 'blechanawil.al' ))
124 open(F, '>', File::Spec->catfile( $fulldir, 'a.al'))
[all …]
/onnv-gate/usr/src/cmd/cmd-inet/usr.sadm/dhcpmgr/com/sun/dhcpmgr/server/
H A DDhcpMgrImpl.java44 private static final File lockFile = new File(LOCK_FILE);
45 private File currentlyOpenFile = null;
76 private synchronized File setFile(String name) throws IOException { in setFile()
86 currentlyOpenFile = new File(name); in setFile()
91 private synchronized void clearFile(File file) { in clearFile()
104 private synchronized File getFile() { in getFile()
111 private synchronized boolean isFileOpen(File file) { in isFileOpen()
137 File file = setFile(fileName); in openExportFile()
174 if (!isFileOpen((File)ref)) { in closeExportFile()
175 throw new FileNotFoundException(((File)ref).getName()); in closeExportFile()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DTemp.pm1 package File::Temp;
129 use File::Spec 0.8;
130 use File::Path qw/ rmtree /;
371 ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
375 my @dirs = File::Spec->splitdir($directories);
380 $parent = File::Spec->curdir;
384 $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]);
389 $parent = File::Spec->catdir(@dirs[0..$#dirs-1]);
392 $parent = File::Spec->catpath($volume, $parent, '');
400 ($volume, $directories, $file) = File::Spec->splitpath( $path );
[all …]
H A DFind.pm1 package File::Find;
415 require File::Basename;
416 require File::Spec;
429 return substr($cdir,0,rindex($cdir,'/')) if $fn eq $File::Find::current_dir;
617 $avoid_nlink = $follow || $File::Find::dont_use_nlink;
642 if ($top_item eq $File::Find::current_dir) {
658 elsif ($top_item eq $File::Find::current_dir) {
699 unless (($_,$dir) = File::Basename::fileparse($abs_dir)) {
764 my $dir_rel = $File::Find::current_dir;
777 unless ( $no_chdir || ($p_dir eq $File::Find::current_dir)) {
[all …]
H A DCompare.t19 use File::Compare qw(compare compare_text);
75 require File::Spec; import File::Spec;
76 require File::Path; import File::Path;
77 require File::Temp; import File::Temp qw/ :mktemp unlink0 /;
79 my $template = File::Spec->catfile(File::Spec->tmpdir, 'fcmpXXXX');
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/
H A DFind.pm51 use File::Spec;
52 use File::Find;
149 push(@search, grep($_ ne File::Spec->curdir, @new_INC));
151 push(@search, grep($_ ne File::Spec->curdir, @INC));
184 unless(File::Spec->file_name_is_absolute($try)) {
186 $try = File::Spec->catfile($pwd,$try);
191 $try = File::Spec->canonpath($try) if ($^O ne 'VMS');
201 File::Find::find( sub {
202 my $item = $File::Find::name;
205 $File::Find::prune = 1;
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A DCommand.t21 use File::Path ();
22 File::Path::rmtree( 'ecmddir' );
27 use File::Spec;
44 my ($vol, $dirs, $file) = File::Spec->splitpath($self);
45 my @dirs = File::Spec->splitdir($dirs);
46 unshift(@dirs, File::Spec->updir);
47 $dirs = File::Spec->catdir(@dirs);
48 $self = File::Spec->catpath($vol, $dirs, $file);
143 @ARGV = ( File::Spec->join( 'ecmddir', 'temp2' ) );
153 ok( -e File::Spec->join( 'ecmddir', 'temp2', $Testfile ), 'copied okay' );
[all …]
H A DINST.t22 use File::Spec;
33 my $Curdir = File::Spec->curdir;
34 my $Updir = File::Spec->updir;
69 $perl_src = File::Spec->catdir($Updir, $Updir);
70 $perl_src = File::Spec->canonpath($perl_src);
71 $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
88 : File::Spec->catdir($Curdir, 'blib', 'arch'),
90 is( $mm->{INST_BIN}, File::Spec->catdir($Curdir, 'blib', 'bin'),
98 : File::Spec->catdir($Updir, 'blib', 'arch'),
100 is( $c_mm->{INST_BIN}, File::Spec->catdir($Updir, 'blib', 'bin'),
[all …]
H A Drecurs.t39 ok( chdir File::Spec->updir );
56 ok( -e File::Spec->catfile('prj2',$makefile), 'sub Makefile written' );
63 ok( chdir File::Spec->updir );
79 ok( !-e File::Spec->catfile('prj2',$makefile), 'sub Makefile not written' );
87 ok( chdir File::Spec->updir );
102 my $submakefile = File::Spec->catfile('prj2',$makefile);
107 my $inst_script = File::Spec->catdir(File::Spec->updir, 'cgi');
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/pod/
H A Dfind.t21 use File::Spec;
25 use File::Spec;
34 File::Spec->catdir('pod', 'testpods', 'lib')
35 : File::Spec->catdir($THISDIR,'lib');
38 VMS::Filespec::unixify(File::Spec->catdir('pod', 'testpods', 'lib'))
39 : VMS::Filespec::unixify(File::Spec->catdir($THISDIR,'-','lib','pod'));
77 elsif (File::Spec->case_tolerant || $^O eq 'dos') {
84 print "### searching for File::Find\n";
85 $result = pod_where({ -inc => 1, -verbose => $VERBOSE }, 'File::Find')
91 $compare = "lib.File]Find.pm";
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/bin/
H A Dprove8 use File::Spec;
76 @ARGV = File::Spec->curdir unless @ARGV;
97 next if $file eq File::Spec->updir || $file eq File::Spec->curdir;
101 my $currfile = File::Spec->catfile( $start, $file );
131 my $dir = File::Spec->curdir;
143 my $blib = File::Spec->catdir( $dir, "blib" );
144 my $blib_lib = File::Spec->catdir( $blib, "lib" );
145 my $blib_arch = File::Spec->catdir( $blib, $archdir );
150 $dir = File::Spec->catdir($dir, File::Spec->updir);
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_linenum.t6 my $File;
10 $File = __FILE__;
14 $File =~ s/^t\W+//; # Remove first directory
24 use IO::File;
38 open (F, $File) or die $!;
39 my $io = IO::File->new($File) or die $!;
/onnv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/
H A DMANIFEST9 File/File.pm
10 File/File.xs
11 File/Makefile.PL
19 pod/File.pod

12345678910>>...22