diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-09-08 15:45:46 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-09 00:32:05 +0000 |
| commit | a635c9437ef25a8c106276588579a3871545a5ac (patch) | |
| tree | fdea192f20a5ad1bcb5b3b81740999b8ced21d9c /lib/blib.pm | |
| parent | b38b066d1cf1b115dd83bdf7e4355e8870134fb9 (diff) | |
| download | perl-a635c9437ef25a8c106276588579a3871545a5ac.tar.gz | |
[REPATCH] Re: [PATCH] new test lib/blib.t
Message-ID: <20010908194546.C9193@blackrider>
p4raw-id: //depot/perl@11953
Diffstat (limited to 'lib/blib.pm')
| -rw-r--r-- | lib/blib.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/blib.pm b/lib/blib.pm index 0916f797fd..aaecd4569b 100644 --- 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); +use vars qw($VERSION $Verbose); $VERSION = '1.00'; +$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 .= "/.."; |