Home
last modified time | relevance | path

Searched refs:Cwd (Results 1 – 25 of 268) sorted by relevance

1234567891011

/openbsd/src/gnu/usr.bin/perl/dist/PathTools/t/
DSpec.t8 require Cwd;
809 if ($Cwd::VERSION && $Cwd::VERSION gt '2.17') { # Avoid a 'used only once' warning
814 local *Cwd::getcwd = sub { 'C:\\one\\two' };
815 *Cwd::getcwd = *Cwd::getcwd; # Avoid a 'used only once' warning
816 local *Cwd::getdcwd = sub {
821 *Cwd::getdcwd = *Cwd::getdcwd; # Avoid a 'used only once' warning
828 local *Cwd::getcwd = sub { 'C:\\one\\two' };
829 *Cwd::getcwd = *Cwd::getcwd; # Avoid a 'used only once' warning
Dcwd.t5 use Cwd;
145 Cwd::chdir $Test_Dir;
165 Cwd::chdir $updir;
182 Cwd::abs_path($Test_Dir);
198 my $abs_path = Cwd::abs_path($file);
199 my $fast_abs_path = Cwd::fast_abs_path($file);
200 my $pas = Cwd::_perl_abs_path($file);
232 path_ends_with(Cwd::abs_path($path), 'cwd.t', 'abs_path() can be invoked on a file');
233 path_ends_with(Cwd::fast_abs_path($path), 'cwd.t', 'fast_abs_path() can be invoked on a file');
234 path_ends_with(Cwd::_perl_abs_path($path), 'cwd.t', '_perl_abs_path() can be invoked on a file')
[all …]
Dcwd_enoent.t20 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(".");
Dtaint.t6 use Cwd;
43 ok tainted(File::Spec->canonpath($tainted . Cwd::getcwd)),
48 (Cwd::getcwd() =~ /^(.*)/);
/openbsd/src/gnu/usr.bin/perl/os2/
Dos2_base.t11 my $cwd = Cwd::sys_cwd();
14 my $lpb = Cwd::extLibpath;
17 my $lpe = Cwd::extLibpath(1);
20 ok Cwd::extLibpath_set("$lpb$cwd");
22 $lpb = Cwd::extLibpath;
28 ok Cwd::extLibpath_set("$lpe$cwd", 1);
30 $lpe = Cwd::extLibpath(1);
50 is(OS2::DLLname($_), OS2::DLLname($_, \&Cwd::extLibpath) ) for 0..2;
51 ok(not defined eval { OS2::DLLname $_, \&Cwd::cwd; 1 } ) for 0..2;
/openbsd/src/gnu/usr.bin/perl/t/op/
Dchdir.t35 my $Cwd = abs_path;
50 is( abs_path, catdir($Cwd, $test_dir), ' abs_path() agrees' );
53 $Cwd = abs_path;
126 is( abs_path, $Cwd, ' abs_path() did not change' );
132 chdir($Cwd);
133 is( abs_path, $Cwd, ' and back again' );
185 $ENV{$key} = catdir $Cwd, 'op';
200 is( abs_path, $Cwd, ' abs_path() agrees' );
Drequire_errors.t178 require Cwd;
199 if !defined(Cwd::getcwd());
201 my $file = File::Spec::Functions::catfile(Cwd::getcwd(), $mod_file);
/openbsd/src/gnu/usr.bin/perl/dist/PathTools/
DChanges150 - 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)
172 - In Cwd.xs, tidy the conditional code related to symlinks
[all …]
DMANIFEST2 Cwd.pm
3 Cwd.xs
/openbsd/src/gnu/usr.bin/perl/dist/PathTools/lib/File/Spec/
DWin32.pm5 use Cwd ();
333 my $vol = ($self->splitpath( Cwd::getcwd() ))[0];
338 $base = Cwd::getdcwd( ($self->splitpath( $path ))[0] ) if defined &Cwd::getdcwd ;
339 $base = Cwd::getcwd() unless defined $base ;
DOS2.pm4 use Cwd ();
146 $base = Cwd::getcwd();
203 $base = Cwd::getcwd();
DUnix.pm4 use Cwd ();
398 $base = Cwd::getcwd() unless defined $base and length $base;
425 my $wd= ($self->splitpath(Cwd::getcwd(), 1))[1];
508 $base = Cwd::getcwd();
DMac.pm4 use Cwd ();
651 $base = Cwd::getcwd();
719 $base = Cwd::getcwd();
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta/t/
Dprereqs-finalize.t26 'Cwd' => '876.5',
52 $prereqs->requirements_for(qw(runtime requires))->add_minimum(Cwd => 10);
57 { $prereqs->requirements_for(qw(runtime requires))->add_minimum(Cwd => 1000) }
78 $clone->requirements_for(qw(runtime requires))->add_minimum(Cwd => 10);
82 $clone->requirements_for(qw(runtime requires))->add_minimum(Cwd => 1000);
Dprereqs.t16 'Cwd' => 0,
65 (grep { 'Cwd' eq $_ } @req_mod),
89 (grep { 'Cwd' eq $_ } @req_mod),
/openbsd/src/gnu/usr.bin/perl/cpan/libnet/t/
Dnetrc.t22 use Cwd;
25 $ENV{HOME} = Cwd::cwd();
31 ((undef) x 7, Cwd::cwd());
/openbsd/src/usr.bin/libtool/LT/
DUtil.pm24 use Cwd;
31 return dirname(Cwd::abs_path($a));
/openbsd/src/gnu/usr.bin/perl/
Dwrite_buildcustomize.pl62 require Cwd;
64 my $cwd = Cwd::getcwd();
/openbsd/src/gnu/usr.bin/perl/cpan/Module-Metadata/t/lib/
DGeneratePackage.pm9 use Cwd;
16 my $cwd = File::Spec->rel2abs(Cwd::cwd);
/openbsd/src/gnu/usr.bin/perl/cpan/Pod-Simple/t/
Dencod01.t16 use Cwd ();
20 my $corpusdir = File::Spec->catdir(File::Basename::dirname(Cwd::abs_path(__FILE__)), 'corpus');
Dsearch60.t16 use Cwd ();
19 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
Doutput.t8 use Cwd ();
11 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
Dsearch29.t16 use Cwd ();
19 my $t_dir = File::Basename::dirname(Cwd::abs_path(__FILE__));
/openbsd/src/gnu/usr.bin/perl/t/lib/
Dcygwin.t35 use Cwd;
75 ok(Cwd->cwd(), "bug#38628 legacy");
/openbsd/src/gnu/llvm/clang/tools/scan-build/bin/
Dscan-build23 use Cwd qw/ getcwd abs_path /;
450 my $JS = Cwd::realpath("$RealBin/../share/scan-build/sorttable.js");
460 my $CSS = Cwd::realpath("$RealBin/../share/scan-build/scanview.css");
933 my $ScanView = Cwd::realpath("$RealBin/scan-view");
935 if (! -x $ScanView) { $ScanView = Cwd::realpath("$RealBin/../../scan-view/bin/scan-view"); }
1485 $Clang = Cwd::realpath("$RealBin/bin/clang") if (-f "$RealBin/bin/clang");
1487 $Clang = Cwd::realpath("$RealBin/clang") if (-f "$RealBin/clang");
1495 $Clang = Cwd::realpath("$RealBin/../../bin/clang");
1889 my $AbsRealBin = Cwd::realpath($RealBin);

1234567891011