external/perl/transfer/Text/Template.pm

   1 #! /usr/bin/perl
   2
   3 # Quick transfer to the downloaded Text::Template
   4
   5 BEGIN {
   6     use File::Spec::Functions;
   7     use File::Basename;
   8     use lib catdir(dirname(__FILE__), "..", "..", "Text-Template-1.46", "lib");
   9     # Some unpackers on VMS convert periods in directory names to underscores
  10     use lib catdir(dirname(__FILE__), "..", "..", "Text-Template-1_46", "lib");
  11     use Text::Template;
  12     shift @INC;                 # Takes away the effect of use lib
  13     shift @INC;                 # Takes away the effect of use lib
  14 }
  15 1;