provide File::Copy::syscopy() via Win32::CopyFile() on win32

[perl5.git] / lib / blib.pm

diff --git a/lib/blib.pm b/lib/blib.pm
index 9e0f6c0..1d56a58 100644 (file)
--- 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;