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