diff options
| author | Richard Levitte <levitte@openssl.org> | 2016-05-13 11:21:06 +0200 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2016-05-13 14:33:41 +0200 |
| commit | 1563102bbd6b76d903942c4ca42c5bbdd6ecc765 (patch) | |
| tree | 2c52d01781f954592fd73e612616d10f96778cfd | |
| parent | 5f7267598d74c2d86c2ef52eab38c91957b19999 (diff) | |
VMS perl: Fix glob output
In some cases, perl's glob() thinks it needs to return file names with
generation numbers, such as when a file name pattern includes two
periods. Constructing other file names by simple appending to file
names with generation numbers isn't a good idea, so for the VMS case,
just peal the generation numbers if they are there.
Fortunately, this is easy, as the returned generation number delimiter
will always be a semi-colon.
Reviewed-by: Rich Salz <rsalz@openssl.org>
| -rw-r--r-- | test/recipes/80-test_ssl_new.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/test/recipes/80-test_ssl_new.t b/test/recipes/80-test_ssl_new.t index 57def45072..5cafb9fdfd 100644 --- a/test/recipes/80-test_ssl_new.t +++ b/test/recipes/80-test_ssl_new.t @@ -21,6 +21,7 @@ setup("test_ssl_new"); $ENV{TEST_CERTS_DIR} = srctop_dir("test", "certs"); my @conf_srcs = glob(srctop_file("test", "ssl-tests", "*.conf.in")); +map { s/;.*// } @conf_srcs if $^O eq "VMS"; my @conf_files = map { basename($_) } @conf_srcs; map { s/\.in// } @conf_files; |