Adjust transfer::Text::Template.pm for alternate directory name

On VMS, periods in directory names weren't allowed.  To counter that,
unpackers such as VMSTAR convert periods in directory names to
underscores.  We need to count that in and add an alternative library
path for Text::Template.

Reviewed-by: Rich Salz <rsalz@openssl.org>

diff --git a/external/perl/transfer/Text/Template.pm b/external/perl/transfer/Text/Template.pm
index 3779df9fe9fc09d10c24c5f0c91168e100287e47..d018e6b048164524e7676c01b06be8c751f8bdd4 100644 (file)
--- a/external/perl/transfer/Text/Template.pm
+++ b/external/perl/transfer/Text/Template.pm
@@ -5,9 +5,11 @@
 BEGIN {
     use File::Spec::Functions;
     use File::Basename;
-    use lib catdir(dirname(__FILE__), "..", "..",
-                   "Text-Template-1.46", "lib");
+    use lib catdir(dirname(__FILE__), "..", "..", "Text-Template-1.46", "lib");
+    # Some unpackers on VMS convert periods in directory names to underscores
+    use lib catdir(dirname(__FILE__), "..", "..", "Text-Template-1_46", "lib");
     use Text::Template;
     shift @INC;                 # Takes away the effect of use lib
+    shift @INC;                 # Takes away the effect of use lib
 }
 1;