| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| H A D | Install.t | 75 my $native_dummy = File::Spec->catfile(qw(install-test lib perl Big Dummy.pm));
|
| H A D | MM_Unix.t | 55 is ($class->catfile('xx','xx','yy'), File::Spec->catfile('xx','xx','yy'),
56 'catfile(xx, xx) => xx/xx');
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| H A D | Compare.t | 79 my $template = File::Spec->catfile(File::Spec->tmpdir, 'fcmpXXXX');
|
| H A D | Spec.pm | 35 $x=File::Spec->catfile('a', 'b', 'c');
41 $x = catfile('a', 'b', 'c');
70 File::Spec::catfile('a','b');
74 File::Spec->catfile('a','b');
100 =item catfile
105 $path = File::Spec->catfile( @directories, $filename );
174 join is the same as catfile.
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| H A D | callback.t | 64 $strap->analyze_file(File::Spec->catfile($SAMPLE_TESTS, $test));
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/pod/ |
| H A D | testpchk.pl | 12 push @INC, map { File::Spec->catfile($_, 'lib') } ($PARENTDIR, $THISDIR);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/uni/ |
| H A D | case.pl | 11 my $file = File::Spec->catfile(File::Spec->catdir(File::Spec->updir,
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/ |
| H A D | Dir.pm | 111 -e File::Spec->catfile(${*$dh}{io_dir_path}, $key);
116 &lstat(File::Spec->catfile(${*$dh}{io_dir_path}, $key));
122 my $file = File::Spec->catfile(${*$dh}{io_dir_path}, $key);
137 my $file = File::Spec->catfile(${*$dh}{io_dir_path}, $key);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| H A D | IO.t | 83 my $fakemod = File::Spec->catfile( $fakedir, 'fakemod.pm' );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/ |
| H A D | basic.t | 41 return File::Spec->catfile ($dir, $file);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/ |
| H A D | taint.t | 199 return File::Spec->catfile(@_);
202 my $path = File::Spec->catfile(@_);
210 return File::Spec->catfile($first_arg, @_); # relative path
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | FindBin.pm | 137 my $scr = File::Spec->catfile($dir, $script);
163 $script = File::Spec->catfile(getcwd(), $script)
178 : File::Spec->catfile($RealBin, $linktext);
|
| H A D | AutoSplit.t | 86 my $file = File::Spec->catfile($incdir,"$module.pm");
151 my $com = 'require "' . File::Spec->catfile ('auto', $args{Require}) . '"';
163 my $file = File::Spec->catfile($dir, $args{Require});
270 like (&*MOD*::test6, qr!^\Q*INC**PATHSEP**MOD*\E\.pm \(autosplit into \Q@{[File::Spec->catfile('*DIR*','*MOD*', 'test6.al')]}\E\):\d+$!);
|
| H A D | h2xs.t | 202 foreach my $leaf (File::Spec->catfile('lib', "$name.pm"), 'Makefile.PL') {
203 my $file = File::Spec->catfile($name, $leaf);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| H A D | MM_Unix.pm | 583 my($src) = $self->catfile($self->{PERL_INC},'perl.h');
584 my($targ) = $self->catfile($dir,'.exists');
585 # catfile may have adapted syntax of $dir to target OS, so...
1212 $abs = $self->catfile($dir, $name);
1214 $abs = $self->catfile($Curdir, $name);
1312 $interpreter = $self->catfile($dir,$cmd);
1453 $dir{$name} = $name if (-f $self->catfile($name,"Makefile.PL"));
1473 $pm{$name} = $self->catfile($self->{INST_LIBDIR},$name);
1476 $pm{$name} = $self->catfile($self->{INST_LIBDIR},$name);
1549 my($inst) = $self->catfile(
[all...] |
| H A D | Install.pm | 155 my $targetfile = File::Spec->catfile($targetdir, $origfile);
157 my $sourcefile = File::Spec->catfile($sourcedir, $origfile);
215 File::Spec->catfile($INSTALL_ROOT, $_[0]);
319 # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al));
346 my($targetfile) = File::Spec->catfile($dir,$libdir,$file);
367 File::Spec->catfile($libdir, $file),
419 # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al));
|
| H A D | MM_VMS.pm | 213 if ($name !~ m![/:>\]]!) { push(@cand,$self->catfile($dir,$name)); }
740 if( -r $self->catfile($xsdir, "xsubpp") ) {
746 my(@tmdeps) = $self->catfile($tmdir,'typemap');
1242 push(@otherfiles, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.all'));
1243 push(@otherfiles, $self->catfile('$(INST_ARCHAUTODIR)','extralibs.ld'));
1483 $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read '.File::Spec->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').' '" >.MM_tmp
1484 $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write '.File::Spec->catfile('$(DESTINSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').' '" >>.MM_tmp
1493 $(NOECHO) $(WARN_IF_OLD_PACKLIST) ].$self->catfile($self->{SITEARCHEXP},'auto',$self->{FULLEXT},'.packlist').q[
1497 $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'read '.File::Spec->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').' '" >.MM_tmp
1498 $(NOECHO) $(PERLRUN) "-MFile::Spec" -e "print 'write '.File::Spec->catfile('
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/ |
| H A D | Mac.pm | 267 =item catfile
276 C<File::Spec-E<gt>catfile()> returns relative paths on all other
281 C<catfile()> uses C<catdir()> (see above) for the concatenation of the
285 catfile("") = ""
286 catfile("file") = "file"
290 catfile("","") = rootdir() # (e.g. "HD:")
291 catfile("","file") = rootdir() . file # (e.g. "HD:file")
292 catfile("HD:","file") = "HD:file"
299 catfile("a","b","file") = ":a:b:file" and
301 catfile("
310 sub catfile { subroutine
[all...] |
| H A D | Win32.pm | 79 =item catfile
86 sub catfile { subroutine
263 Unix, $volume is ignored, and this is just like catfile(). On other OSs,
|
| H A D | Unix.pm | 76 =item catfile
83 sub catfile { subroutine
217 join is the same as catfile.
223 return $self->catfile(@_);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/Perldoc/ |
| H A D | ToMan.pm | 35 use File::Spec::Functions qw(catfile);
51 catfile(
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/ |
| H A D | Perldoc.pm | 10 use File::Spec::Functions qw(catfile catdir splitdir);
681 my $searchfor = catfile split '::', $_;
1147 my $path = catfile($dir,$file);
1164 my $try = catfile @p, $p;
1170 my $tmp_path = catfile @p;
1200 my $p_filespec = catfile(@p);
1542 my @newdirs = map catfile($dir, $_), grep {
1545 -d catfile($dir, $_)
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/bin/ |
| H A D | enc2xs | 947 _print_expand(File::Spec->catfile($_E2X,"Makefile_PL.e2x"),"Makefile.PL");
948 _print_expand(File::Spec->catfile($_E2X,"_PM.e2x"), "$_Name.pm");
949 _print_expand(File::Spec->catfile($_E2X,"_T.e2x"), "t/$_Name.t");
950 _print_expand(File::Spec->catfile($_E2X,"README.e2x"), "README");
951 _print_expand(File::Spec->catfile($_E2X,"Changes.e2x"), "Changes");
969 my $inc = File::Spec->catfile($d, "Encode");
974 -f File::Spec->catfile($inc, "$f") or next;
998 _print_expand(File::Spec->catfile($_E2X,"ConfigLocal_PM.e2x"),
999 File::Spec->catfile($_Inc,"ConfigLocal.pm"),
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Unicode/Normalize/ |
| H A D | mkheader | 82 $f = File::Spec->catfile($d, "unicore", "CompositionExclusions.txt");
84 $f = File::Spec->catfile($d, "unicode", "CompExcl.txt");
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/ |
| H A D | SelfStubber.t | 37 my $file = catfile(curdir(),$inlib,$f);
175 my $file = catfile(curdir(),$lib,"$module.pm");
176 my $fileo = catfile(curdir(),$inlib,"$module.pm");
217 open FH, catfile(curdir(),$lib,"End.pm") or die $!;
|