diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-11-20 04:56:52 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-20 22:44:04 +0000 |
| commit | a6259068d1da929c6ca4f5acc9ed0401b5239600 (patch) | |
| tree | b1e64ac824262d38091bd436ee3a699b361a617c /t/pragma | |
| parent | fd97da5a5ae5ac2a237233e68a8250d58071f51a (diff) | |
| download | perl-a6259068d1da929c6ca4f5acc9ed0401b5239600.tar.gz | |
add system locale testing for VMS
Message-ID: <Pine.OSF.4.10.10011201244390.376086-100000@aspara.forte.com>
p4raw-id: //depot/perl@7787
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/locale.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/pragma/locale.t b/t/pragma/locale.t index 0e11c956d6..a1ec7a1482 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. |