| /openbsd-src/gnu/usr.bin/cvs/emx/ |
| H A D | savecwd.c | 39 /* Record the location of the current working directory in CWD so that
49 save_cwd (cwd) in save_cwd() argument
50 struct saved_cwd *cwd; in save_cwd()
54 cwd->desc = -1;
55 cwd->name = NULL;
60 cwd->desc = open (".", O_RDONLY);
61 if (cwd->desc < 0)
70 if (fchdir (cwd->desc))
74 close (cwd->desc);
75 cwd->desc = -1;
[all …]
|
| /openbsd-src/gnu/usr.bin/cvs/lib/ |
| H A D | savecwd.c | 40 /* Record the location of the current working directory in CWD so that
50 save_cwd (cwd) in save_cwd() argument
51 struct saved_cwd *cwd; in save_cwd()
55 cwd->desc = -1;
56 cwd->name = NULL;
61 cwd->desc = open (".", O_RDONLY);
62 if (cwd->desc < 0)
71 if (fchdir (cwd->desc))
75 close (cwd->desc);
76 cwd->desc = -1;
[all …]
|
| H A D | xgetwd.c | 41 char *cwd; in xgetwd() local
49 cwd = xmalloc (path_max); in xgetwd()
52 while ((ret = getcwd (cwd, path_max)) == NULL && errno == ERANGE) in xgetwd()
55 cwd = xrealloc (cwd, path_max); in xgetwd()
62 free (cwd); in xgetwd()
66 return cwd; in xgetwd()
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Win32/t/ |
| H A D | GetFullPathName.t | 7 my $cwd = Win32::GetCwd;
8 my @cwd = split/\\/, $cwd;
9 my $file = pop @cwd;
10 my $dir = join('\\', @cwd);
12 ok(scalar Win32::GetFullPathName('.'), $cwd);
16 ok((Win32::GetFullPathName('./'))[0], "$cwd\\");
17 ok((Win32::GetFullPathName('.\\'))[0], "$cwd\\");
20 ok(scalar Win32::GetFullPathName($cwd), $cwd);
21 ok((Win32::GetFullPathName($cwd))[0], "$dir\\");
22 ok((Win32::GetFullPathName($cwd))[1], $file);
[all …]
|
| /openbsd-src/gnu/usr.bin/perl/dist/PathTools/t/ |
| H A D | cwd.t | 5 use Cwd;
50 like $INC{'Cwd.pm'}, qr{blib}i, "Cwd should be loaded from blib/ during testing";
55 can_ok('main', qw(cwd getcwd fastcwd fastgetcwd));
63 cwd();
65 is($before, $after, "cwd() shouldn't create spurious entries in %ENV");
68 # XXX force Cwd to bootstrap its XSUBs since we have set @INC = "../lib"
114 # Darwin's getcwd(3) (which Cwd.xs:bsd_realpath() uses which
115 # Cwd.pm:getcwd uses) has some magic related to the PWD
123 # the PWD to force getcwd(3) to (re)compute the cwd in full.
124 # Admittedly fixing this in the Cwd module would be better
[all …]
|
| H A D | taint.t | 2 # Testing Cwd under taint mode.
6 use Cwd;
22 my @Functions = qw(getcwd cwd fastcwd fastgetcwd
29 my $cwd;
30 eval { $cwd = &{'Cwd::'.$func} };
32 ok( tainted($cwd), "its return value should be tainted" );
35 # Previous versions of Cwd tainted $^O
43 ok tainted(File::Spec->canonpath($tainted . Cwd::getcwd)),
48 (Cwd::getcwd() =~ /^(.*)/);
|
| H A D | cwd_enoent.t | 20 require Cwd;
40 local *Cwd::abs_path = \&Cwd::_perl_abs_path if $type eq "perl";
41 local *Cwd::getcwd = \&Cwd::_perl_getcwd if $type eq "perl";
44 $res = Cwd::getcwd();
50 $res = Cwd::abs_path(".");
|
| /openbsd-src/gnu/usr.bin/perl/dist/PathTools/ |
| H A D | Cwd.pm | 1 package Cwd; package
11 our @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
24 *cwd = defined &sys_cwd ? \&sys_cwd : \&_os2_cwd;
25 *getcwd = \&cwd;
26 *fastgetcwd = \&cwd;
27 *fastcwd = \&cwd;
90 cwd => '_vms_cwd',
101 cwd => '_NT_cwd',
111 cwd => '_dos_cwd',
121 cwd
[all...] |
| H A D | Changes | 107 - improve performance of cwd on Win32 miniperl
150 - Cwd::fast_abs_path's untaint should allow for multiline
158 - Remove Mac OS classic only tests from Cwd's Spec.t
159 and special case code from Cwd's cwd.t (Nicholas Clark)
162 - dist/Cwd/lib/File/Spec/Win32.pm: Fix broken link (Karl Williamson)
163 - In Cwd::_win32_cwd() avoid a string eval when checking if we're
165 - Add PERL_NO_GET_CONTEXT to Cwd (Nicholas Clark)
166 - In Cwd.xs on VMS, don't compile bsd_realpath() at all (Nicholas Clark)
167 - Merge the implementation of Cwd::{fastcwd,getcwd} using
169 - In Cwd.xs, swap to defaulting to disabled prototypes (Nicholas Clark)
[all …]
|
| H A D | Makefile.PL | 4 # When installing a newer Cwd on a system with an existing Cwd,
5 # under some circumstances the old Cwd.pm and the new Cwd.xs could
28 'NAME' => 'Cwd',
29 'VERSION_FROM' => 'Cwd.pm',
37 # done_testing() is used in dist/Cwd/t/Spec.t
|
| /openbsd-src/gnu/usr.bin/perl/os2/ |
| H A D | os2_base.t | 11 my $cwd = Cwd::sys_cwd();
12 ok -d $cwd;
14 my $lpb = Cwd::extLibpath;
17 my $lpe = Cwd::extLibpath(1);
20 ok Cwd::extLibpath_set("$lpb$cwd");
22 $lpb = Cwd::extLibpath;
24 (my $s_cwd = $cwd) =~ s#\\#/#g;
28 ok Cwd::extLibpath_set("$lpe$cwd", 1);
30 $lpe = Cwd::extLibpath(1);
50 is(OS2::DLLname($_), OS2::DLLname($_, \&Cwd::extLibpath) ) for 0..2;
[all …]
|
| /openbsd-src/regress/lib/libc/mkstemp/ |
| H A D | mkstemp_test.c | 114 char cwd[PATH_MAX + 1]; in main() local
120 if (getcwd(cwd, sizeof cwd - 1) == NULL) in main()
122 clen = strlen(cwd); in main()
123 cwd[clen++] = '/'; in main()
124 cwd[clen] = '\0'; in main()
138 /* start of the page, prefixed with the cwd */ in main()
139 try_mkstemp(p, cwd, i); in main()
140 /* how about at the end of the page, prefixed with cwd? */ in main()
141 try_mkstemp(p + pg - clen - i - 1, cwd, i); in main()
148 /* start of the page, prefixed with the cwd */ in main()
[all …]
|
| /openbsd-src/regress/bin/ps/ |
| H A D | cwd.sh | 36 test_ps "-o cwd,command" "$padded ./shortsleep"
37 test_ps "-wwo cwd,command" "$padded ./shortsleep"
38 test_ps "-o cwd" "$dirname"
39 test_ps "-wwo cwd" "$dirname"
40 test_ps "-wwo command,cwd" "./shortsleep $dirname"
53 test_ps "-o cwd,command" "$dirname ../shortsleep"
54 test_ps "-wwo cwd,command" "$dirname ../shortsleep"
55 test_ps "-o cwd" "$dirname"
56 test_ps "-wwo cwd" "$dirname"
57 test_ps "-wwo command,cwd" "../shortsleep $dirname"
|
| /openbsd-src/gnu/usr.bin/perl/cpan/Pod-Simple/t/ |
| H A D | search28.t | 16 use Cwd ();
19 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| H A D | search26.t | 21 use Cwd ();
24 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| H A D | search29.t | 16 use Cwd ();
19 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| H A D | search60.t | 16 use Cwd ();
19 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| H A D | search10.t | 18 use Cwd ();
21 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| H A D | search12.t | 16 use Cwd ();
19 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| H A D | search22.t | 17 use Cwd ();
20 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| H A D | search27.t | 16 use Cwd ();
19 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| H A D | search25.t | 19 use Cwd ();
22 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
|
| /openbsd-src/gnu/usr.bin/perl/ext/Pod-Html/t/ |
| H A D | cache.t | 11 use Cwd;
17 my $startdir = cwd();
25 my $cwd = unixify(Cwd::cwd());
40 "--podroot=$cwd",
48 is($podroot, "$cwd", "podroot");
56 "--htmldir=$cwd",
73 chdir($cwd);
|
| /openbsd-src/gnu/usr.bin/perl/t/win32/ |
| H A D | system_tests | 4 use Cwd;
12 my $cwdb = my $cwd = cwd();
13 $cwd =~ s,\\,/,g;
43 "$cwd/$exe",
44 "$cwd/$exex",
55 "$cwd/$bat",
56 "$cwd/$batx",
63 "$cwd/$cmdx",
69 [$^X, "$cwd/$batx"],
|
| /openbsd-src/gnu/usr.bin/perl/dist/PathTools/lib/File/ |
| H A D | Spec.pm | 6 # Cwd.pm.
98 processing, you probably want C<Cwd>'s C<realpath()> function to
253 If C<$base> is not present or '', then L<Cwd::cwd()|Cwd> is used. If C<$base> is
256 L<Cwd::cwd()|Cwd>.
269 This means that it is taken to be relative to L<Cwd::cwd()|Cw
[all...] |