use Cwd;
+use vars qw($VERSION $Verbose);
+$VERSION = '1.01';
+$Verbose = 0;
sub import
{
my $package = shift;
my $dir = getcwd;
+ if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; }
if (@_)
{
- print join(',',@_),"\n";
$dir = shift;
- $dir =~ s/blib$//;
- $dir =~ s,/+$,,;
+ $dir =~ s/blib\z//;
+ $dir =~ s,/+\z,,;
$dir = '.' unless ($dir);
die "$dir is not a directory\n" unless (-d $dir);
}
if (-d $blib && -d "$blib/arch" && -d "$blib/lib")
{
unshift(@INC,"$blib/arch","$blib/lib");
- warn "Using $blib\n";
+ warn "Using $blib\n" if $Verbose;
return;
}
$dir .= "/..";