Searched refs:cwd (Results 1 - 25 of 71) sorted by relevance

123

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dgetcwd.pl12 # Usage: $cwd = &getcwd;
16 local($dotdots, $cwd, @pst, @cst, $dir, @tst);
23 $cwd = '';
64 $cwd = "$dir/$cwd";
67 chop($cwd);
68 $cwd;
H A DCwd.pm20 *cwd() function) be used in I<all> code to ensure portability.
22 By default, it exports the functions cwd(), getcwd(), fastcwd(), and
35 my $cwd = getcwd();
41 =item cwd
43 my $cwd = cwd();
45 The cwd() is the most natural form for the current architecture. For
51 my $cwd = fastcwd();
66 my $cwd = fastgetcwd();
68 The fastgetcwd() function is provided as a synonym for cwd()
[all...]
H A Dvalidate.pl52 $this =~ s/\bcd\b/chdir (\$cwd = \$file)/g;
62 $file = $cwd . '/' . $file unless $file =~ m|^/|;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Cwd/t/
H A Dtaint.t13 my @Functions = qw(getcwd cwd fastcwd fastgetcwd
20 my $cwd;
21 eval { $cwd = &{'Cwd::'.$func} };
23 ok( tainted($cwd), "its return value should be tainted" );
H A Dcwd.t20 can_ok('main', qw(cwd getcwd fastcwd fastgetcwd));
74 # the PWD to force getcwd(3) to (re)compute the cwd in full.
80 my $cwd = cwd;
85 is($cwd, $start, 'cwd()');
98 foreach my $func (qw(cwd getcwd fastcwd fastgetcwd)) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/
H A Dtestlib.pm12 my $cwd;
14 ($cwd) = getcwd() =~ /(.*)/;
16 use lib map File::Spec->rel2abs($_, $cwd), qw(blib/arch blib/lib);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/
H A Dpod2html-lib.pl9 my $cwd = Cwd::cwd();
10 my $base_dir = catdir $cwd, updir(), "lib", "Pod";
/osnet-11/usr/src/lib/libast/common/path/
H A Dpathaccess.c54 char cwd[PATH_MAX]; local
64 dirs = getcwd(cwd, sizeof(cwd));
/osnet-11/usr/src/lib/libproc/common/
H A DPexecname.c46 * Once we've computed a cwd and a relative path, we use try_exec() to
51 try_exec(struct ps_prochandle *P, const char *cwd, const char *path, char *buf, argument
57 (void) snprintf(buf, PATH_MAX, "%s/%s", cwd, path);
83 char cwd[PATH_MAX * 2]; local
100 * interpreted as the directory to use as an alternate cwd for
113 * At this point 'aout' is either "." or an alternate cwd. We use
117 if (realpath(aout, cwd) == NULL)
118 (void) strcpy(cwd, ".");
124 * basename appended to our cwd. If that also fails, and the process
125 * is in a zone, try again with the zone path instead of our cwd
267 char cwd[PATH_MAX]; local
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/
H A Dperldoc.PL23 my $origdir = cwd;
H A Dsplain.PL18 $origdir = cwd;
H A Dcpan.PL16 my $origdir = cwd;
H A Denc2xs.PL16 my $origdir = cwd;
H A Dinstmodsh.PL16 my $origdir = cwd;
H A Dpiconv.PL16 my $origdir = cwd;
H A Dprove.PL16 my $origdir = cwd;
H A Dxsubpp.PL16 my $origdir = cwd;
/osnet-11/usr/src/lib/libtsol/common/
H A Dsetflabel.c83 static char cwd[MAXPATHLEN]; local
93 if (*path != '/' && cwd[0] == '\0') {
94 if (getcwd(cwd, MAXPATHLEN) == NULL) {
95 cwd[0] = '\0';
103 if (abspath(cwd, path, canon) < 0)
/osnet-11/usr/src/lib/mpss/common/
H A Dmpss.c221 fnmatch(const char *execname, char *cfgname, char *cwd) argument
233 ename = (const char *)strcat(cwd, execname);
306 char *cwd; local
379 cwd = getcwd(pbuf, MAXPATHLEN);
380 if (!cwd)
383 cwd = strcat(cwd, "/");
384 cwdlen = strlen(cwd);
434 if (!fnmatch(execname, tok, cwd)) {
436 cwd[cwdle
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCheckTree.pm72 my ($starting_dir, $file, $test, $cwd, $oldwarnings);
74 $starting_dir = cwd;
76 $cwd = "";
113 $file = File::Spec->catfile($cwd, $file)
114 if $cwd && !File::Spec->file_name_is_absolute($file);
127 $this =~ s/\bcd\b/chdir(\$cwd = '$file')/;
160 if ($starting_dir ne cwd) {
173 if ($starting_dir ne cwd) {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/
H A Dtaint.t7 my ($cwd, $cwd_untainted);
235 $cwd = cwd(); # save cwd
236 ( $cwd_untainted ) = $cwd =~ m|^(.+)$|; # untaint it
304 # untaint pattern doesn't match, should die when we chdir to cwd
314 like( $@, qr|insecure cwd|, 'Bad untaint pattern causes death in cwd (good)' );
377 # untaint pattern doesn't match, should die when we chdir to cwd
384 like( $@, qr|insecure cwd|, 'Cw
[all...]
/osnet-11/usr/src/lib/libadm/common/
H A Dfulldevnm.c110 char cwd[MAXPATHLEN]; local
118 if (getcwd(cwd, sizeof (cwd)) == NULL)
126 /* strip the last directory component from cwd */
127 c = strrchr(cwd, '/');
137 len = strlen(cwd) + strlen(path) + 2;
141 (void) strcpy(wa, cwd);
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Bin/
H A Dpathopens.d72 (self->dfd == AT_FDCWD ? cwd : fds[self->dfd].fi_pathname);
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Proc/
H A Dpathopens.d72 (self->dfd == AT_FDCWD ? cwd : fds[self->dfd].fi_pathname);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/
H A Dnetrc.t22 $ENV{HOME} = Cwd::cwd();
28 ((undef) x 7, Cwd::cwd());

Completed in 90 milliseconds

123