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

diff --git a/lib/blib.pm b/lib/blib.pm
index 9e0f6c0..1d56a58 100644
--- a/lib/blib.pm
+++ b/lib/blib.pm
@@ -45,6 +45,7 @@ sub import
 {
  my $package = shift;
  my $dir = getcwd;
+ if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/$--; }
  if (@_)
   {
    $dir = shift;