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 <rsalz@openssl.org>

diff --git a/external/perl/transfer/Text/Template.pm b/external/perl/transfer/Text/Template.pm
index 13ed1eb1f712b90256d330ea9568389a20b9bdf4..3779df9fe9fc09d10c24c5f0c91168e100287e47 100644 (file)
--- 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;