From: Peter Prymmer <PPrymmer@factset.com>
Date: Mon, 20 Nov 2000 12:56:52 +0000 (-0800)
Subject: add system locale testing for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6259068d1da929c6ca4f5acc9ed0401b5239600;p=p5sagit%2Fp5-mst-13.2.git

add system locale testing for VMS
Message-ID: <Pine.OSF.4.10.10011201244390.376086-100000@aspara.forte.com>

p4raw-id: //depot/perl@7787
---

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 0e11c95..a1ec7a1 100755
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -367,6 +367,15 @@ if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) {
 	trylocale($_);
     }
     close(LOCALES);
+} elsif ($^O eq 'VMS' && defined($ENV{'SYS$I18N_LOCALE'}) && -d 'SYS$I18N_LOCALE') {
+# The SYS$I18N_LOCALE logical name search list was not present on 
+# VAX VMS V5.5-12, but was on AXP && VAX VMS V6.2 as well as later versions.
+    opendir(LOCALES, "SYS\$I18N_LOCALE:");
+    while ($_ = readdir(LOCALES)) {
+        chomp;
+        trylocale($_);
+    }
+    close(LOCALES);
 } else {
 
     # This is going to be slow.