X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fblib.pm;h=0916f797fd11f0f9df10cd32aa97f81de8a45805;hb=191740791d4b6865c4f2665c148ea4f4d8ec7cc3;hp=8af1727d8f1cf9fddbcae1ed5aafc699f2e78cd4;hpb=5f05dabc4054964aa3b10f44f8468547f051cdf8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/blib.pm b/lib/blib.pm
index 8af1727..0916f79 100644
--- a/lib/blib.pm
+++ b/lib/blib.pm
@@ -38,17 +38,19 @@ Nick Ing-Simmons nik@tiuk.ti.com
 
 use Cwd;
 
+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-/\z--; }
  if (@_)
   {
-   print join(',',@_),"\n";
    $dir = shift;
-   $dir =~ s/blib$//;
-   $dir =~ s,/+$,,;
+   $dir =~ s/blib\z//;
+   $dir =~ s,/+\z,,;
    $dir = '.' unless ($dir);
    die "$dir is not a directory\n" unless (-d $dir);
   }