Home
last modified time | relevance | path

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

12345678910>>...25

/mirbsd/src/gnu/usr.bin/perl/lib/File/Find/t/
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 …]
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 …]
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/
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 …]
DCommand.pm6 use File::Copy;
7 use File::Compare;
8 use File::Basename;
9 use File::Path qw(rmtree);
233 my @dirs = File::Spec->splitdir( $path );
235 $path = File::Spec->catfile(@dirs);
255 File::Path::mkpath([@ARGV],0,0777);
280 require File::Find;
281 File::Find::find(sub {
/mirbsd/src/gnu/usr.bin/perl/lib/File/Temp/t/
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) {
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(
75 $fh = new File::Temp( DIR => $tempdir, UNLINK => 0 );
83 $fh = new File::Temp( TEMPLATE => 'helloXXXXXXX',
96 $fh = new File::Temp( TEMPLATE => 'permXXXXXXX', UNLINK => 0);
106 $fh = new File::Temp( TEMPLATE => 'permXXXXXXX', UNLINK => 1);
113 $File::Temp::KEEP_ALL = 1;
[all …]
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');
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/t/
DINST_PREFIX.t23 use File::Spec;
36 my $Curdir = File::Spec->curdir;
37 my $Updir = File::Spec->updir;
41 ok( chdir File::Spec->updir );
77 my $PREFIX = File::Spec->catdir('foo', 'bar');
105 $perl_src = File::Spec->catdir($Updir, $Updir);
106 $perl_src = File::Spec->canonpath($perl_src);
107 $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
155 my $wibble = File::Spec->catdir(qw(wibble and such));
173 _set_config(installvendorman1dir => File::Spec->catdir('foo','bar') );
[all …]
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);
185 @ARGV = ( File::Spec->join( 'ecmddir', 'temp2' ) );
197 ok( -e File::Spec->join( 'ecmddir', 'temp2', $Testfile ), 'copied okay' );
[all …]
DINST.t23 use File::Spec;
34 my $Curdir = File::Spec->curdir;
35 my $Updir = File::Spec->updir;
39 ok( chdir File::Spec->updir );
76 $perl_src = File::Spec->catdir($Updir, $Updir);
77 $perl_src = File::Spec->canonpath($perl_src);
78 $mm_perl_src = File::Spec->canonpath($mm->{PERL_SRC});
95 : File::Spec->catdir($Curdir, 'blib', 'arch'),
97 is( $mm->{INST_BIN}, File::Spec->catdir($Curdir, 'blib', 'bin'),
105 : File::Spec->catdir($Updir, 'blib', 'arch'),
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/pod/
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 …]
/mirbsd/src/gnu/usr.bin/perl/lib/File/
DTemp.pm1 package File::Temp;
140 use File::Spec 0.8;
141 use File::Path qw/ rmtree /;
395 ($volume, $directories, $file) = File::Spec->splitpath( $path, 1);
399 my @dirs = File::Spec->splitdir($directories);
404 $parent = File::Spec->curdir;
408 $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]);
413 $parent = File::Spec->catdir(@dirs[0..$#dirs-1]);
416 $parent = File::Spec->catpath($volume, $parent, '');
424 ($volume, $directories, $file) = File::Spec->splitpath( $path );
[all …]
DFind.pm1 package File::Find;
422 require File::Basename;
423 require File::Spec;
436 return substr($cdir,0,rindex($cdir,'/')) if $fn eq $File::Find::current_dir;
625 $avoid_nlink = $follow || $File::Find::dont_use_nlink;
652 if ($top_item eq $File::Find::current_dir) {
668 elsif ($top_item eq $File::Find::current_dir) {
709 unless (($_,$dir) = File::Basename::fileparse($abs_dir)) {
774 my $dir_rel = $File::Find::current_dir;
789 unless ( $no_chdir || ($p_dir eq $File::Find::current_dir)) {
[all …]
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');
/mirbsd/src/gnu/usr.bin/perl/lib/Pod/
DFind.pm54 use File::Spec;
55 use File::Find;
152 push(@search, grep($_ ne File::Spec->curdir, @new_INC));
154 push(@search, grep($_ ne File::Spec->curdir, @INC));
187 unless(File::Spec->file_name_is_absolute($try)) {
189 $try = File::Spec->catfile($pwd,$try);
194 $try = File::Spec->canonpath($try) if ($^O ne 'VMS');
204 File::Find::find( sub {
205 my $item = $File::Find::name;
208 $File::Find::prune = 1;
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/
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, @_);
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, @_);
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);
DFindBin.pm100 use File::Basename;
101 use File::Spec;
144 foreach $dir (File::Spec->path)
146 my $scr = File::Spec->catfile($dir, $script);
172 $script = File::Spec->catfile(cwd2(), $script)
173 unless File::Spec->file_name_is_absolute($script);
185 $script = (File::Spec->file_name_is_absolute($linktext))
187 : File::Spec->catfile($RealBin, $linktext);
194 defined $Bin or $Bin = File::Spec->canonpath($BinOld);
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 …]
/mirbsd/src/gnu/usr.bin/perl/lib/File/Spec/t/
DSpec.t6 use File::Spec @File::Spec::EXPORT_OK ;
8 require File::Spec::Unix ;
9 require File::Spec::Win32 ;
30 require File::Spec::VMS ;
32 require File::Spec::OS2 ;
33 require File::Spec::Mac ;
34 require File::Spec::Epoc ;
35 require File::Spec::Cygwin ;
41 $root = File::Spec::Mac->rootdir();
610 package File::Spec::FakeWin32;
Drel2abs2rel.t6 use File::Spec;
7 use lib File::Spec->catdir('t', 'lib');
32 $perl = File::Spec->catfile(File::Spec->curdir, $perl) unless
33 File::Spec->file_name_is_absolute($perl);
63 $perl = File::Spec->rel2abs($^X);
66 $perl = File::Spec->canonpath($perl);
69 $perl = safe_rel(File::Spec->abs2rel($perl));
72 $perl = safe_rel(File::Spec->canonpath($^X));
/mirbsd/src/gnu/usr.bin/perl/Porting/
Dp4genpatch11 use File::Temp qw(tempdir);
12 use File::Compare;
13 use File::Spec;
14 use File::Spec::Unix;
63 my @splitdir = File::Spec::Unix->splitdir($path);
64 $path = File::Spec->catdir(@splitdir);
75 $d1 = $^O eq 'MacOS' ? File::Spec->devnull : "/dev/null";
79 $d1 = File::Spec->catfile($path, "$basename-$prevchange");
80 $t1 = File::Spec->catfile($tempdir, $d1);
95 $t1 = File::Spec->catfile($tempdir, $d1);
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/IO/t/
Dio_file.t16 my $File = 'bin.'.$$;
26 open $tmp, ">$File" or die "Could not open '$File': $!";
38 ok( $fh->open($File), " Opened '$File'" );
48 ok( $fh->open($File), " Opened '$File' $!" );
55 unlink $File;
/mirbsd/src/gnu/usr.bin/perl/lib/Test/Harness/bin/
Dprove8 use File::Spec;
79 @ARGV = File::Spec->curdir unless @ARGV;
102 next if $file eq File::Spec->updir || $file eq File::Spec->curdir;
106 my $currfile = File::Spec->catfile( $start, $file );
136 my $dir = File::Spec->curdir;
148 my $blib = File::Spec->catdir( $dir, "blib" );
149 my $blib_lib = File::Spec->catdir( $blib, "lib" );
150 my $blib_arch = File::Spec->catdir( $blib, $archdir );
155 $dir = File::Spec->catdir($dir, File::Spec->updir);

12345678910>>...25