From 1cc98f75bfaf16a3a1038cf36cb053f330e4ac30 Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Thu, 4 Feb 2016 19:41:56 +0100 Subject: [PATCH] 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: Rich Salz --- external/perl/transfer/Text/Template.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/external/perl/transfer/Text/Template.pm b/external/perl/transfer/Text/Template.pm index 13ed1eb1f7..3779df9fe9 100644 --- a/external/perl/transfer/Text/Template.pm +++ b/external/perl/transfer/Text/Template.pm @@ -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; -- 2.25.1