Commit c680f77f authored by Richard Levitte's avatar Richard Levitte
Browse files

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: default avatarRich Salz <rsalz@openssl.org>
parent a7626557

external/perl/transfer/Text/Template.pm

+4 −2
Original line number Diff line number Diff line
@@ -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;