Home
last modified time | relevance | path

Searched refs:catdir (Results 1 – 25 of 149) sorted by relevance

123456

/openbsd/src/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/
Dcan_write_dir.t16 my $dne = FS->catdir(qw(does not exist));
21 FS->catdir('does'),
22 FS->catdir('does', 'not'),
23 FS->catdir('does', 'not', 'exist')
32 FS->rel2abs(FS->catdir('does')),
33 FS->rel2abs(FS->catdir('does', 'not')),
34 FS->rel2abs(FS->catdir('does', 'not', 'exist')),
38 my $exists = FS->catdir(qw(exists));
39 my $subdir = FS->catdir(qw(exists subdir));
/openbsd/src/gnu/usr.bin/perl/dist/PathTools/t/
DFunctions.t8 is(catdir(), File::Spec->catdir());
9 is(catdir('a'), File::Spec->catdir('a'));
10 is(catdir('a','b'), File::Spec->catdir('a','b'));
11 is(catdir('a','b','c'), File::Spec->catdir('a','b','c'));
Dcrossplatform.t83 $base = $module->catpath($v, $module->catdir('', 'foo'), '');
84 $base = $module->catdir($module->rootdir, 'foo');
101 $file = $module->catpath($v, $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
102 $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
120 $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
126 $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
132 $file = $module->catpath('', $module->catdir($module->rootdir, 'foo', 'bar'), 'file');
133 $base = $module->catpath($v, $module->catdir($module->rootdir, 'foo'), '');
147 $base = $module->catpath($other_v, $module->catdir($module->rootdir, 'foo'), '');
161 $base = $module->catpath('', $module->catdir($module->rootdir, 'foo'), '');
/openbsd/src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/
DINST_PREFIX.t80 my $PREFIX = File::Spec->catdir('foo', 'bar');
112 $perl_src = File::Spec->catdir($Updir, $Updir, $Updir, $Updir, $Updir, $Updir);
162 my $wibble = File::Spec->catdir(qw(wibble and such));
180 _set_config(installvendorman1dir => File::Spec->catdir('foo','bar') );
197 is( $mm->{INSTALLVENDORMAN1DIR}, File::Spec->catdir('foo','bar'),
206 _set_config(installman1dir => File::Spec->catdir('foo', 'bar') );
207 _set_config(installman3dir => File::Spec->catdir('foo', 'baz') );
215 my $wibble = File::Spec->catdir(qw(wibble and such));
223 is( $mm->{INSTALLMAN1DIR}, File::Spec->catdir('foo', 'bar') );
224 is( $mm->{INSTALLMAN3DIR}, File::Spec->catdir('foo', 'baz') );
[all …]
Dbuild_man.t47 local $Config{installman3dir} = File::Spec->catdir(qw(t lib));
169 = File::Spec->catdir( 'foo', "man$man1section" );
171 = File::Spec->catdir( 'foo', "man$man3section" );
182 = File::Spec->catdir( 'foo', "man$man1section" );
184 = File::Spec->catdir( 'foo', "man$man3section" );
191 $Config{installman1dir} = File::Spec->catdir( 'foo', 'cat1p' );
192 $Config{installman3dir} = File::Spec->catdir( 'foo', 'cat3p' );
193 $Config{installsiteman1dir} = File::Spec->catdir( 'foo', 'catL' );
194 $Config{installsiteman3dir} = File::Spec->catdir( 'foo', 'catL3' );
207 $Config{installman1dir} = File::Spec->catdir( 'foo', 'man1pm' );
[all …]
DINST.t79 $perl_src = File::Spec->catdir($Updir, $Updir, $Updir, $Updir, $Updir, $Updir);
98 : File::Spec->catdir($Curdir, 'blib', 'arch'),
100 is( $mm->{INST_BIN}, File::Spec->catdir($Curdir, 'blib', 'bin'),
112 : File::Spec->catdir($Updir, 'blib', 'arch')),
114 is( $c_mm->{INST_BIN}, File::Spec->catdir($Updir, 'blib', 'bin'),
118 my $inst_lib = File::Spec->catdir($Curdir, 'blib', 'lib');
Dprefixify.t25 my $default = File::Spec->catdir(qw(this that));
33 is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
37 is( $mm->{INSTALLBIN}, File::Spec->catdir('something', $default),
/openbsd/src/gnu/usr.bin/perl/cpan/File-Path/t/
DPath.t39 my $path = catdir(curdir(), "mhx", "bar");
55 my $tmp_base = catdir(
62 catdir($tmp_base, qw(a b)),
63 catdir($tmp_base, qw(a c)),
64 catdir($tmp_base, qw(z b)),
65 catdir($tmp_base, qw(z c)),
168 my $dir = catdir($cwd, 'remove');
169 my $dir2 = catdir($cwd, 'remove', 'this', 'dir');
218 $dir = catdir($tmp_base,'C');
232 $dir2 = catdir($tmp_base,'D');
[all …]
Dtaint.t15 my $tmp_base = catdir(
22 catdir($tmp_base, qw(a b)),
23 catdir($tmp_base, qw(a c)),
24 catdir($tmp_base, qw(z b)),
25 catdir($tmp_base, qw(z c)),
DPath_root.t21 my $tmp_base = catdir(
28 catdir($tmp_base, qw(a b)),
29 catdir($tmp_base, qw(a c)),
30 catdir($tmp_base, qw(z b)),
31 catdir($tmp_base, qw(z c)),
40 my $dir_stem = $dir = catdir($tmp_base, 'owned-by');
42 $dir = catdir($dir_stem, 'aaa');
49 $dir = catdir($dir_stem, 'aab');
56 $dir = catdir($dir_stem, 'aac');
70 $dir = catdir($dir_stem, 'aad');
DFilePathTest.pm22 return catdir(
126 my $least_deep = catdir($tdir, $dirnames[0]);
127 my $next_deepest = catdir($least_deep, $dirnames[1]);
128 my $deepest = catdir($next_deepest, $dirnames[2]);
/openbsd/src/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/
Dtestp2pt.pl15 $PARENTDIR = File::Spec->catdir($THISDIR, File::Spec->updir());
16 push @INC, map { File::Spec->catdir($_, 'lib') } ($PARENTDIR, $THISDIR);
31 unshift(@INC, File::Spec->catdir($PARENTDIR, 'inc'));
43 sub catdir(@) { File::Spec->catdir(@_); } subroutine
52 my @PODINCDIRS = ( catdir($INSTDIR, 'lib', 'Pod'),
53 catdir($INSTDIR, 'scripts'),
54 catdir($INSTDIR, 'pod'),
55 catdir($INSTDIR, 't', 'pod')
60 push @PODINCDIRS, catdir((File::Spec->updir()) x 2, 'pod') if $ENV{PERL_CORE};
/openbsd/src/gnu/usr.bin/perl/t/lib/
Ddeprecate.t13 my $test_dir = File::Spec->catdir(qw(lib deprecate));
15 @INC = ( File::Spec->catdir( (File::Spec->updir)x3, qw(lib)) );
18 privlibexp => File::Spec->catdir(qw(lib perl)),
19 sitelibexp => File::Spec->catdir(qw(lib site)),
20 archlibexp => File::Spec->catdir(qw(lib perl arch)),
21 sitearchexp => File::Spec->catdir(qw(lib site arch)),
67 my $dir = File::Spec->catdir($libdir{$lib}, $sub_dir);
/openbsd/src/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/
DUnix.pm89 *catdir = \&_pp_catdir unless defined &catdir;
102 my $dir = $self->catdir(@_);
426 $path_directories = $self->catdir($wd, $path);
427 $base_directories = $self->catdir($wd, $base);
437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') );
467 my $result_dirs = $self->catdir( @reverse_base, @pathchunks );
518 $path = $self->catdir( $base, $path ) ;
569 $fs->catdir(@collapsed),
DCygwin.pm54 sub catdir { subroutine
61 return $self->SUPER::catdir('', @_);
64 $self->SUPER::catdir(@_);
DMac.pm193 sub catdir { subroutine
314 my $dir = $self->catdir(@_);
680 $path_dirs = $self->catdir( ':', @pathchunks );
685 return $self->catpath( '', $self->catdir( $base_dirs, $path_dirs ), $path_file ) ;
/openbsd/src/gnu/usr.bin/perl/
Dmkppport16 unshift @INC, File::Spec->catdir($rootdir, qw(cpan ExtUtils-MakeMaker t lib));
58 unshift @INC, File::Spec->catdir($absroot, 'lib');
62 chdir File::Spec->catdir($rootdir, 'dist', 'Devel-PPPort');
106 my $fulldir = File::Spec->catdir($absroot, $dir);
136 my @args = ("-I" . File::Spec->catdir((File::Spec->updir) x 2, 'lib'), @_);
/openbsd/src/gnu/usr.bin/perl/lib/
Dblib.pm78 $blib = File::Spec->catdir($dir, "blib");
79 $blib_lib = File::Spec->catdir($blib, "lib");
80 $blib_arch = File::Spec->catdir($blib, "arch");
88 $dir = File::Spec->catdir($dir, File::Spec->updir);
/openbsd/src/gnu/usr.bin/perl/cpan/ExtUtils-Install/lib/ExtUtils/
DInstall.pm423 $dir = File::Spec->catdir($vol,@dirs);
426 $dir = File::Spec->catdir(@dirs);
701 my $blib_lib = File::Spec->catdir('blib', 'lib');
702 my $blib_arch = File::Spec->catdir('blib', 'arch');
739 my $targetdir = File::Spec->catdir($targetroot, $File::Find::dir);
741 my $sourcedir = File::Spec->catdir($source, $File::Find::dir);
886 File::Spec->catdir($INSTALL_ROOT, $_[0]);
962 my $INST_LIB = File::Spec->catdir($Curdir,"blib","lib");
963 my $INST_ARCHLIB = File::Spec->catdir($Curdir,"blib","arch");
964 my $INST_BIN = File::Spec->catdir($Curdir,'blib','bin');
[all …]
/openbsd/src/gnu/usr.bin/perl/lib/ExtUtils/
DEmbed.pm191 $root = File::Spec->catdir(@ns);
195 next unless -e ($archive = File::Spec->catdir($_,"auto",$root,"$sub$lib_ext"));
197 if(-e ($extra = File::Spec->catdir($_,"auto",$root,"extralibs.ld"))) {
225 my $lpath = File::Spec->catdir($Config{archlibexp}, 'CORE');
252 my $dir = File::Spec->catdir($Config{archlibexp}, 'CORE');
/openbsd/src/gnu/usr.bin/perl/cpan/File-Temp/lib/File/
DTemp.pm426 $parent = File::Spec->catdir($volume, @dirs[0..$#dirs-1]);
431 $parent = File::Spec->catdir(@dirs[0..$#dirs-1]);
780 File::Spec->catdir(@dirs[0.. $#dirs - $pos]),
1539 my $testpath = File::Spec->catdir( $tmpdir, $xxpath );
1548 my $local_app = File::Spec->catdir(
1551 $testpath = File::Spec->catdir( $local_app, $xxpath );
1681 $template = File::Spec->catdir($options{"DIR"}, $template);
1686 $template = File::Spec->catdir(_wrap_file_spec_tmpdir(), $template);
1696 $template = File::Spec->catdir($options{"DIR"}, TEMPXXX);
1700 $template = File::Spec->catdir(_wrap_file_spec_tmpdir(), TEMPXXX);
/openbsd/src/gnu/usr.bin/perl/cpan/Pod-Simple/t/
Dsearch29.t21 my $here1 = File::Spec->catdir($t_dir, 'testlib1');
22 my $here2 = File::Spec->catdir($t_dir, 'testlib2');
23 my $here3 = File::Spec->catdir($t_dir, 'testlib3');
Dsearch28.t21 my $here1 = File::Spec->catdir($t_dir, 'testlib1');
22 my $here2 = File::Spec->catdir($t_dir, 'testlib2');
23 my $here3 = File::Spec->catdir($t_dir, 'testlib3');
Dsearch26.t26 my $here1 = File::Spec->catdir($t_dir, 'testlib1');
27 my $here2 = File::Spec->catdir($t_dir, 'testlib2');
28 my $here3 = File::Spec->catdir($t_dir, 'testlib3');
/openbsd/src/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/
DUtilities.pm139 File::Spec->catdir(($updir) x 1),
140 File::Spec->catdir(($updir) x 2),
141 File::Spec->catdir(($updir) x 3),
142 File::Spec->catdir(($updir) x 4),

123456