| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | pwd.pl | 52 local(@curdir) = split(m#/#,$ENV{'PWD'});
53 @curdir = '' unless @curdir;
56 pop(@curdir),next if $component eq '..';
57 push(@curdir,$component);
59 $ENV{'PWD'} = join('/',@curdir) || '/';
|
| H A D | Cwd.pm | 351 my @curdir = split(m#/#,$ENV{'PWD'});
352 @curdir = ('') unless @curdir;
356 pop(@curdir),next if $component eq '..';
357 push(@curdir,$component);
359 $ENV{'PWD'} = join('/',@curdir) || '/';
430 my $path = @_ ? shift : ($Curdir ||= File::Spec->curdir);
|
| H A D | blib.pm | 56 $dir = File::Spec->curdir unless ($dir);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/run/ |
| H A D | switchx.t | 11 print runperl( switches => ['-x'], progfile => catfile(curdir(), 'run', 'switchx.aux') );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| H A D | hints.t | 19 my $curdir = File::Spec->curdir;
20 @INC = grep { $_ ne $curdir && $_ ne '.' } @INC;
|
| H A D | INST.t | 33 my $Curdir = File::Spec->curdir;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| H A D | Path.t | 20 my $path = catdir(curdir(), "mhx", "bar");
|
| H A D | CheckTree.t | 120 $path_to_dist = File::Spec->rel2abs(File::Spec->curdir);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | readline.t | 66 open F, File::Spec->curdir and sysread F, $_, 1;
74 open F, File::Spec->curdir and $_=<F>;
80 open F, File::Spec->curdir and $_=<F>;
|
| H A D | chdir.t | 24 my $d = rel2abs(curdir);
|
| /osnet-11/usr/src/lib/libxcurses/src/libc/gen/ |
| H A D | base.c | 52 static char curdir[] = "."; variable
74 return curdir; /* arg NULL, empty, ".", or ".." in DIRNAME */
96 return arg; /* curdir on the specified drive */
98 return (type==DIRNAME)?curdir:path;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/MakeMaker/Test/Setup/ |
| H A D | Recurs.pm | 34 $file = File::Spec->catfile(File::Spec->curdir, split m{\/}, $file);
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/ |
| H A D | find.t | 56 File::Spec->curdir);
65 File::Spec->curdir);
328 %Expect_File = (File::Spec->curdir => 1, file_path('fsl') => 1,
347 %Expect_File = (File::Spec->curdir => 1, file_path('fsl') => 1,
363 {} }, File::Spec->curdir ); } },
400 %Expect_Name = (File::Spec->curdir => 1,
417 File::Find::finddepth( {wanted => \&wanted_Name}, File::Spec->curdir );
424 %Expect_File = (File::Spec->curdir => 1,
444 File::Spec->curdir );
453 File::Spec->curdir
[all...] |
| H A D | taint.t | 53 untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
59 untaint => 1, untaint_pattern => qr|^(.+)$|}, File::Spec->curdir);
264 %Expect_File = (File::Spec->curdir => 1, file_path('fsl') =>
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/ |
| H A D | Functions.pm | 18 curdir
75 curdir
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/ |
| H A D | 1_compile.t | 56 my $compmod = catfile(curdir(), 'lib', 'compmod.pl');
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Spec/t/ |
| H A D | rel2abs2rel.t | 30 $perl = File::Spec->catfile(File::Spec->curdir, $perl) unless
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Encode/ |
| H A D | Makefile.PL | 106 my $dir = $self->catdir($self->curdir,'ucm');
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Temp/t/ |
| H A D | object.t | 52 DIR => File::Spec->curdir,
|
| H A D | tempfile.t | 60 DIR => File::Spec->curdir,
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| H A D | callback.t | 48 my $Curdir = File::Spec->curdir;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
| H A D | Install.pm | 22 my $Curdir = File::Spec->curdir;
276 my $INST_LIB = File::Spec->catdir(File::Spec->curdir,"blib","lib");
277 my $INST_ARCHLIB = File::Spec->catdir(File::Spec->curdir,"blib","arch");
278 my $INST_BIN = File::Spec->catdir(File::Spec->curdir,'blib','bin');
279 my $INST_SCRIPT = File::Spec->catdir(File::Spec->curdir,'blib','script');
280 my $INST_MAN1DIR = File::Spec->catdir(File::Spec->curdir,'blib','man1');
281 my $INST_MAN3DIR = File::Spec->catdir(File::Spec->curdir,'blib','man3');
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
| H A D | TEST | 64 my $curdir = File::Spec->curdir;
71 next if $f eq $curdir or $f eq $updir or
|
| /osnet-11/usr/src/lib/libast/common/misc/ |
| H A D | fts.c | 53 FTSENT* curdir; \
409 * set directory when curdir is lost in space
471 if (!(f = fts->curdir) || f->fts_level < 0)
889 fts->curdir = fts->cd ? 0 : f->fts_parent;
901 fts->curdir = fts->cd ? 0 : f->fts_parent;
986 fts->curdir = fts->cd < 0 ? 0 : f;
1121 || f != fts->curdir
1134 fts->curdir = fts->cd ? 0 : f;
1182 if (f == fts->curdir)
1185 fts->curdir
[all...] |
| /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 $!;
|