X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fblib.pm;h=1d56a58174e3777dd4f74a85840e591a304b5928;hb=7e3be867c805de9df8b4e2ab54f88f956419821c;hp=4d8f609b52db7f2e54705c66f38bca7fab69099f;hpb=49624702b850ce75f102fc7902be1ca451941985;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/blib.pm b/lib/blib.pm
index 4d8f609..1d56a58 100644
--- a/lib/blib.pm
+++ b/lib/blib.pm
@@ -38,15 +38,16 @@ Nick Ing-Simmons nik@tiuk.ti.com
 
 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,/+$,,;
@@ -60,7 +61,7 @@ sub import
    if (-d $blib && -d "$blib/arch" && -d "$blib/lib")
     {
      unshift(@INC,"$blib/arch","$blib/lib");
-     warn "Using $blib";
+     warn "Using $blib\n";
      return;
     }
    $dir .= "/..";