use Cwd;
-use vars qw($VERSION);
-$VERSION = '1.00';
+use vars qw($VERSION $Verbose);
+$VERSION = '1.01';
+$Verbose = 0;
sub import
{
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 .= "/..";