/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | getcwd.pl | 12 # Usage: $cwd = &getcwd; 16 local($dotdots, $cwd, @pst, @cst, $dir, @tst); 23 $cwd = ''; 64 $cwd = "$dir/$cwd"; 67 chop($cwd); 68 $cwd;
|
H A D | Cwd.pm | 20 *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 D | validate.pl | 52 $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 D | taint.t | 13 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 D | cwd.t | 20 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 D | testlib.pm | 12 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 D | pod2html-lib.pl | 9 my $cwd = Cwd::cwd(); 10 my $base_dir = catdir $cwd, updir(), "lib", "Pod";
|
/osnet-11/usr/src/lib/libast/common/path/ |
H A D | pathaccess.c | 54 char cwd[PATH_MAX]; local 64 dirs = getcwd(cwd, sizeof(cwd));
|
/osnet-11/usr/src/lib/libproc/common/ |
H A D | Pexecname.c | 46 * 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 D | perldoc.PL | 23 my $origdir = cwd;
|
H A D | splain.PL | 18 $origdir = cwd;
|
H A D | cpan.PL | 16 my $origdir = cwd;
|
H A D | enc2xs.PL | 16 my $origdir = cwd;
|
H A D | instmodsh.PL | 16 my $origdir = cwd;
|
H A D | piconv.PL | 16 my $origdir = cwd;
|
H A D | prove.PL | 16 my $origdir = cwd;
|
H A D | xsubpp.PL | 16 my $origdir = cwd;
|
/osnet-11/usr/src/lib/libtsol/common/ |
H A D | setflabel.c | 83 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 D | mpss.c | 221 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 D | CheckTree.pm | 72 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 D | taint.t | 7 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 D | fulldevnm.c | 110 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 D | pathopens.d | 72 (self->dfd == AT_FDCWD ? cwd : fds[self->dfd].fi_pathname);
|
/osnet-11/usr/src/cmd/dtrace_toolkit/DTT/Proc/ |
H A D | pathopens.d | 72 (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 D | netrc.t | 22 $ENV{HOME} = Cwd::cwd(); 28 ((undef) x 7, Cwd::cwd());
|