/dports/devel/p5-File-Copy-Link/File-Copy-Link-0.140/t/ |
H A D | linked.t | 48 File::Spec->canonpath($file), 'linked - to file'); 50 File::Spec->canonpath($loopy), 'linked - to link'); 53 File::Spec->canonpath($file), 'resolve - file'); 69 File::Spec->canonpath($subdir), 'linked - directory'); 71 File::Spec->canonpath($subdir), 'resolve - directory'); 88 File::Spec->canonpath($subdir), 'resolve_all - directory'); 90 File::Spec->canonpath($target), 'resolve_all - file'); 94 File::Spec->canonpath($target), 'resolve_all - file'); 99 is( File::Spec->canonpath(File::Spec::Link->resolve_all( 108 File::Spec->canonpath($target), 'full_resolve - file'); [all …]
|
/dports/devel/p5-File-Find-Closures/File-Find-Closures-1.113/lib/File/Find/ |
H A D | Closures.pm | 102 sub { push @files, canonpath( $File::Find::name ) if -f $_ }, 117 sub { push @files, canonpath( $File::Find::name ) if -s $_ >= $min }, 132 sub { push @files, canonpath( $File::Find::name ) if -s $_ <= $min }, 147 sub { push @files, canonpath( $File::Find::name ) if -s $_ == 0 }, 166 my $dir = dirname( canonpath( $File::Find::name ) ); 269 sub { push @files, canonpath( $File::Find::name ) 284 sub { push @files, canonpath( $File::Find::name ) 301 sub { push @files, canonpath( $File::Find::name ) 359 sub { push @files, canonpath( $File::Find::name ) 369 sub { push @files, canonpath( $File::Find::name ) [all …]
|
/dports/java/sablevm-classpath/sablevm-classpath-1.13/gnu/java/io/ |
H A D | PlatformHelper.java | 110 StringBuffer canonpath; in toCanonicalForm() local 128 canonpath = new StringBuffer(INITIAL_MAX_PATH); in toCanonicalForm() 129 canonpath.append(tmppath.substring(0, i)); in toCanonicalForm() 154 canonpath.setLength(canonpath.length() - 1/*separator.length()*/); in toCanonicalForm() 155 String tmpstr = canonpath.toString(); in toCanonicalForm() 162 canonpath.setLength(idx + 1/*separator.length()*/); in toCanonicalForm() 167 canonpath.append(s); in toCanonicalForm() 171 canonpath.append(separator); in toCanonicalForm() 176 canonpath.append(separator); in toCanonicalForm() 178 String tmpstr = canonpath.toString(); in toCanonicalForm()
|
/dports/www/mod_perl2/mod_perl-2.0.11/t/response/TestCompat/ |
H A D | apache.pm | 91 ok t_filepath_cmp(canonpath($Apache::Server::CWD), 92 canonpath($server_root), 95 ok t_filepath_cmp(canonpath($r->server_root_relative), 96 canonpath($server_root), 99 ok t_filepath_cmp(canonpath($r->server_root_relative('conf')), 103 ok t_filepath_cmp(canonpath(Apache->server_root_relative('conf')), 107 ok t_filepath_cmp(canonpath(Apache->server_root_relative), 108 canonpath($server_root), 112 ok t_filepath_cmp(canonpath(Apache->server_root_relative($path)), 113 canonpath($path),
|
/dports/net/freeswitch/freeswitch-1.10.3.-release/libs/apr-util/build/ |
H A D | w32locatedb.pl | 45 my $apu_hw = canonpath("$srcdir/include/apu.hw"); 46 my $apu_want_hw = canonpath("$srcdir/include/apu_want.hw"); 47 my $apu_select_dbm_hw = canonpath("$srcdir/include/private/apu_select_dbm.hw"); 48 my $aprutil_dsp = canonpath("$srcdir/aprutil.dsp"); 49 my $libaprutil_dsp = canonpath("$srcdir/libaprutil.dsp"); 59 my $db_h = rel2abs(canonpath("$incdir/db.h")); 75 my $libpath = rel2abs(canonpath("$libdir/$libname")); 95 my $srcdir = rel2abs(canonpath($0));
|
/dports/devel/apr1/apr-util-1.6.1/build/ |
H A D | w32locatedb.pl | 45 my $apu_hw = canonpath("$srcdir/include/apu.hw"); 46 my $apu_want_hw = canonpath("$srcdir/include/apu_want.hw"); 47 my $apu_select_dbm_hw = canonpath("$srcdir/include/private/apu_select_dbm.hw"); 48 my $aprutil_dsp = canonpath("$srcdir/aprutil.dsp"); 49 my $libaprutil_dsp = canonpath("$srcdir/libaprutil.dsp"); 59 my $db_h = rel2abs(canonpath("$incdir/db.h")); 75 my $libpath = rel2abs(canonpath("$libdir/$libname")); 95 my $srcdir = rel2abs(canonpath($0));
|
/dports/devel/p5-MouseX-Getopt/MouseX-Getopt-0.36/t/ |
H A D | 008_configfromfile.t | 59 my $cpath = File::Spec->canonpath('/notused/default'); 75 default => File::Spec->canonpath('/notused/default'), 86 default => sub { return File::Spec->canonpath('/notused/default') }, 104 is( $app->configfile, File::Spec->canonpath('/notused/default'), 121 is( $app->configfile, File::Spec->canonpath('/notused/default'), 144 is( $app->configfile, File::Spec->canonpath('/notused'), 155 is( $app->configfile, File::Spec->canonpath('/notused'),
|
/dports/mail/grepmail/grepmail-5.3033/inc/File/Spec/ |
H A D | Unix.pm | 11 sub canonpath { subroutine 43 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 50 my $file = $self->canonpath(pop @_); 89 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 188 ($path, $base) = map $self->canonpath($_), $path, $base; 220 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 232 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 254 $base = $self->canonpath( $base ) ; 261 return $self->canonpath( $path ) ;
|
/dports/lang/perl5.34/perl-5.34.0/dist/PathTools/lib/File/Spec/ |
H A D | Unix.pm | 72 *canonpath = \&_pp_canonpath unless defined &canonpath; 87 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 100 my $file = $self->canonpath(pop @_); 183 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 400 ($path, $base) = map $self->canonpath($_), $path, $base; 437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 468 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 514 $base = $self->canonpath( $base ) ; 521 return $self->canonpath( $path ) ;
|
H A D | OS2.pm | 50 return $self->canonpath(join('', @args)); 53 sub canonpath { subroutine 141 $path = $self->canonpath( $path ) ; 150 $base = $self->canonpath( $base ) ; 191 return $self->canonpath( 209 $base = $self->canonpath( $base ) ; 225 return $self->canonpath( $path ) ;
|
/dports/lang/perl5.30/perl-5.30.3/dist/PathTools/lib/File/Spec/ |
H A D | Unix.pm | 72 *canonpath = \&_pp_canonpath unless defined &canonpath; 87 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 100 my $file = $self->canonpath(pop @_); 183 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 400 ($path, $base) = map $self->canonpath($_), $path, $base; 437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 468 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 514 $base = $self->canonpath( $base ) ; 521 return $self->canonpath( $path ) ;
|
H A D | OS2.pm | 50 return $self->canonpath(join('', @args)); 53 sub canonpath { subroutine 141 $path = $self->canonpath( $path ) ; 150 $base = $self->canonpath( $base ) ; 191 return $self->canonpath( 209 $base = $self->canonpath( $base ) ; 225 return $self->canonpath( $path ) ;
|
/dports/lang/perl5.32/perl-5.32.1/dist/PathTools/lib/File/Spec/ |
H A D | Unix.pm | 72 *canonpath = \&_pp_canonpath unless defined &canonpath; 87 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 100 my $file = $self->canonpath(pop @_); 183 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 400 ($path, $base) = map $self->canonpath($_), $path, $base; 437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 468 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 514 $base = $self->canonpath( $base ) ; 521 return $self->canonpath( $path ) ;
|
H A D | OS2.pm | 50 return $self->canonpath(join('', @args)); 53 sub canonpath { subroutine 141 $path = $self->canonpath( $path ) ; 150 $base = $self->canonpath( $base ) ; 191 return $self->canonpath( 209 $base = $self->canonpath( $base ) ; 225 return $self->canonpath( $path ) ;
|
/dports/sysutils/webmin/webmin-1.981/authentic-theme/lib/File/Spec/ |
H A D | Unix.pm | 72 *canonpath = \&_pp_canonpath unless defined &canonpath; 87 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 100 my $file = $self->canonpath(pop @_); 183 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 400 ($path, $base) = map $self->canonpath($_), $path, $base; 437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 468 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 514 $base = $self->canonpath( $base ) ; 521 return $self->canonpath( $path ) ;
|
H A D | OS2.pm | 50 return $self->canonpath(join('', @args)); 53 sub canonpath { subroutine 141 $path = $self->canonpath( $path ) ; 150 $base = $self->canonpath( $base ) ; 191 return $self->canonpath( 209 $base = $self->canonpath( $base ) ; 225 return $self->canonpath( $path ) ;
|
/dports/sysutils/usermin/usermin-1.830/authentic-theme/lib/File/Spec/ |
H A D | Unix.pm | 72 *canonpath = \&_pp_canonpath unless defined &canonpath; 87 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 100 my $file = $self->canonpath(pop @_); 183 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 400 ($path, $base) = map $self->canonpath($_), $path, $base; 437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 468 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 514 $base = $self->canonpath( $base ) ; 521 return $self->canonpath( $path ) ;
|
H A D | OS2.pm | 50 return $self->canonpath(join('', @args)); 53 sub canonpath { subroutine 141 $path = $self->canonpath( $path ) ; 150 $base = $self->canonpath( $base ) ; 191 return $self->canonpath( 209 $base = $self->canonpath( $base ) ; 225 return $self->canonpath( $path ) ;
|
/dports/devel/p5-CPANPLUS/CPANPLUS-0.9912/inc/bundle/File/Spec/ |
H A D | Unix.pm | 72 *canonpath = \&_pp_canonpath unless defined &canonpath; 87 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 100 my $file = $self->canonpath(pop @_); 183 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 400 ($path, $base) = map $self->canonpath($_), $path, $base; 437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 468 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 514 $base = $self->canonpath( $base ) ; 521 return $self->canonpath( $path ) ;
|
H A D | OS2.pm | 50 return $self->canonpath(join('', @args)); 53 sub canonpath { subroutine 141 $path = $self->canonpath( $path ) ; 150 $base = $self->canonpath( $base ) ; 191 return $self->canonpath( 209 $base = $self->canonpath( $base ) ; 225 return $self->canonpath( $path ) ;
|
/dports/devel/p5-PathTools/PathTools-3.75/lib/File/Spec/ |
H A D | Unix.pm | 72 *canonpath = \&_pp_canonpath unless defined &canonpath; 87 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 100 my $file = $self->canonpath(pop @_); 183 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 400 ($path, $base) = map $self->canonpath($_), $path, $base; 437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 468 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 514 $base = $self->canonpath( $base ) ; 521 return $self->canonpath( $path ) ;
|
H A D | OS2.pm | 50 return $self->canonpath(join('', @args)); 53 sub canonpath { subroutine 141 $path = $self->canonpath( $path ) ; 150 $base = $self->canonpath( $base ) ; 191 return $self->canonpath( 209 $base = $self->canonpath( $base ) ; 225 return $self->canonpath( $path ) ;
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/PathTools/lib/File/Spec/ |
H A D | Unix.pm | 72 *canonpath = \&_pp_canonpath unless defined &canonpath; 87 $self->canonpath(join('/', @_, '')); # '' because need a trailing '/' 100 my $file = $self->canonpath(pop @_); 183 $tmpdir = defined $tmpdir && $self->canonpath($tmpdir); 400 ($path, $base) = map $self->canonpath($_), $path, $base; 437 return $self->canonpath( $self->catpath('', $self->catdir( @pathchunks ), '') ); 468 return $self->canonpath( $self->catpath('', $result_dirs, '') ); 514 $base = $self->canonpath( $base ) ; 521 return $self->canonpath( $path ) ;
|
H A D | OS2.pm | 50 return $self->canonpath(join('', @args)); 53 sub canonpath { subroutine 141 $path = $self->canonpath( $path ) ; 150 $base = $self->canonpath( $base ) ; 191 return $self->canonpath( 209 $base = $self->canonpath( $base ) ; 225 return $self->canonpath( $path ) ;
|
/dports/devel/p5-Devel-Ditto/Devel-Ditto-0.06/t/ |
H A D | output.t | 14 is $out, "[main, " . File::Spec->canonpath("t/myprog.pl") . ", 9] This is regular text\n" 15 . "[MyPrinter, " . File::Spec->canonpath("t/lib/MyPrinter.pm") . ", 7] Hello, World\n", 'STDOUT'; 16 is $err, "[main, " . File::Spec->canonpath("t/myprog.pl") . ", 10] This is a warning\n" 17 . "[MyPrinter, " . File::Spec->canonpath("t/lib/MyPrinter.pm") . ", 8] Whappen?\n", 'STDERR';
|