From 096fcbb836f6fd56aeb7ca9c34ea5bec57be8b6a Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 28 Feb 2009 11:47:56 -0600
Subject: Make deprecate.pm work on VMS.

---
 lib/deprecate.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib/deprecate.pm')

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++) {
-- 
cgit v1.2.1