Lines Matching refs:dir
11 perl -Mblib=dir script [args...]
16 I<dir> (or current directory) and working back up to five levels of '..'.
49 my $dir = getcwd;
50 if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; }
53 $dir = shift;
54 $dir =~ s/blib\z//;
55 $dir =~ s,/+\z,,;
56 $dir = File::Spec->curdir unless ($dir);
57 die "$dir is not a directory\n" unless (-d $dir);
63 $blib = File::Spec->catdir($dir, "blib");
81 $dir = File::Spec->catdir($dir, File::Spec->updir);
83 die "Cannot find blib even in $dir\n";