diff options
| author | Craig A. Berry <craigberry@mac.com> | 2009-02-28 11:47:56 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-02-28 11:47:56 -0600 |
| commit | 096fcbb836f6fd56aeb7ca9c34ea5bec57be8b6a (patch) | |
| tree | bc83193a5d84478a468bd9d990eb4c00debf9e15 /lib/deprecate.pm | |
| parent | f72763ca64e82790f7457efc913f314774e50590 (diff) | |
| download | perl-096fcbb836f6fd56aeb7ca9c34ea5bec57be8b6a.tar.gz | |
Make deprecate.pm work on VMS.
Diffstat (limited to 'lib/deprecate.pm')
| -rw-r--r-- | lib/deprecate.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/deprecate.pm b/lib/deprecate.pm index e8063b311b..951922320a 100644 --- a/lib/deprecate.pm +++ b/lib/deprecate.pm @@ -15,11 +15,14 @@ sub import { foreach my $pair ([qw(sitearchexp archlibexp)], [qw(sitelibexp privlibexp)]) { my ($site, $priv) = @Config{@$pair}; + if ($^O eq 'VMS') { + for my $d ($site, $priv) { $d = VMS::Filespec::unixify($d) }; + } # Just in case anyone managed to configure with trailing /s s!/*$!!g foreach $site, $priv; next if $site eq $priv; - if ("$priv/$expect_leaf" eq $file) { + if (uc("$priv/$expect_leaf") eq uc($file)) { my $call_depth=1; my @caller; while (@caller = caller $call_depth++) { |