Commit 1cc98f75 authored by Richard Levitte's avatar Richard Levitte
Browse files

Change the transfer perl module so the real module gets properly registered 



This is an important move if scripts want to refer to the loaded
module without having perl think it needs to be loaded (again).

Reviewed-by: default avatarRich Salz <rsalz@openssl.org>
parent 52739e40

external/perl/transfer/Text/Template.pm

+4 −3
Original line number Diff line number Diff line
@@ -5,8 +5,9 @@ 
BEGIN {

    use File::Spec::Functions;

    use File::Basename;

    use lib catdir(dirname(__FILE__), "..", "..");

    my $texttemplate = catfile("Text-Template-1.46", "lib", "Text", "Template.pm");

    require $texttemplate;

    use lib catdir(dirname(__FILE__), "..", "..",

                   "Text-Template-1.46", "lib");

    use Text::Template;

    shift @INC;                 # Takes away the effect of use lib

}

1;