Lines Matching refs:dir
11 perl -Mblib=dir script [args...]
16 I<dir> (or current directory) and working back up to five levels of '..'.
48 my $dir;
55 chomp($dir = `cd`);
58 $dir = getcwd;
60 if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; }
63 $dir = shift;
64 $dir =~ s/blib\z//;
65 $dir =~ s,/+\z,,;
66 $dir = File::Spec->curdir unless ($dir);
67 die "$dir is not a directory\n" unless (-d $dir);
72 $dir = $1 if $dir =~ /^(.*)$/;
78 $blib = File::Spec->catdir($dir, "blib");
88 $dir = File::Spec->catdir($dir, File::Spec->updir);
90 die "Cannot find blib even in $dir\n";