curdir unless ($dir); die "$dir is not a directory\n" unless (-d $dir); } # detaint: if the user asked for blib, s/he presumably knew # what s/he wanted $dir = $1 if $dir =~ /^(.*)$/; my $i = 5; my($blib, $blib_lib, $blib_arch); while ($i--) { $blib = File::Spec->catdir($dir, "blib"); $blib_lib = File::Spec->catdir($blib, "lib"); $blib_arch = File::Spec->catdir($blib, "arch"); if (-d $blib && -d $blib_arch && -d $blib_lib) { unshift(@INC,$blib_arch,$blib_lib); warn "Using $blib\n" if $Verbose; return; } $dir = File::Spec->catdir($dir, File::Spec->updir); } die "Cannot find blib even in $dir\n"; } 1;