free CheckTree from the tyranny of the forward slash

[perl5.git] / lib / blib.pm

diff --git a/lib/blib.pm b/lib/blib.pm
index 0916f79..9797f2f 100644 (file)
--- a/lib/blib.pm
+++ b/lib/blib.pm
@@ -38,8 +38,9 @@ Nick Ing-Simmons nik@tiuk.ti.com
 
 use Cwd;
 
-use vars qw($VERSION);
-$VERSION = '1.00';
+use vars qw($VERSION $Verbose);
+$VERSION = '1.01';
+$Verbose = 0;
 
 sub import
 {
@@ -61,7 +62,7 @@ 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 .= "/..";