diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1998-01-02 22:54:29 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-01-08 12:56:31 +0000 |
| commit | fc1ce8cc0aa3c1d2926edfb2f302ea8c60b40168 (patch) | |
| tree | d739c6f7d0538e687f6a8a3be61793919216e4f7 /lib/blib.pm | |
| parent | 0151c6efc77004eadcc86505e0e29b10208d3f66 (diff) | |
| download | perl-fc1ce8cc0aa3c1d2926edfb2f302ea8c60b40168.tar.gz | |
Assorted VMS patches (mostly VMS makefile update for new headers):
Subject: [PATCH] VMS update for 5.004_56
p4raw-id: //depot/perl@403
Diffstat (limited to 'lib/blib.pm')
| -rw-r--r-- | lib/blib.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/blib.pm b/lib/blib.pm index 9e0f6c07c3..1d56a58174 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; |