Searched refs:fulldir (Results 1 – 2 of 2) sorted by relevance
| /openbsd/src/gnu/usr.bin/perl/ |
| D | mkppport | 42 iterdirs( sub ($dir, $fulldir) {
43 my $dest = File::Spec->catfile($fulldir, 'ppport.h');
87 iterdirs( sub ($dir, $fulldir) {
88 my $dest = File::Spec->catfile($fulldir, 'ppport.h');
106 my $fulldir = File::Spec->catdir($absroot, $dir);
107 if (-d $fulldir) {
108 $code->($dir, $fulldir);
111 warn "WARNING: no such directory: $fulldir\n";
|
| /openbsd/src/gnu/usr.bin/perl/cpan/AutoLoader/t/ |
| D | 01AutoLoader.t | 32 my $fulldir = File::Spec->catdir( $dir, 'auto', 'Foo' );
33 mkpath( $fulldir ) or die "Can't mkdir '$fulldir': $!";
35 write_file( File::Spec->catfile( $fulldir, 'foo.al' ), <<'EOT' );
41 write_file( File::Spec->catfile( $fulldir, 'bazmarkhian.al' ), <<'EOT' );
51 write_file( File::Spec->catfile( $fulldir, 'blechanawilla.al' ), $blechanawilla_text );
54 write_file( File::Spec->catfile( $fulldir, 'blechanawil.al' ), $blechanawilla_text );
56 write_file( File::Spec->catfile( $fulldir, 'notreached.al' ), <<'EOT' );
114 write_file( File::Spec->catfile( $fulldir, 'a.al' ), <<'EOT' );
120 write_file( File::Spec->catfile( $fulldir, 'b.al' ), <<'EOT' );
|