blob: d018e6b048164524e7676c01b06be8c751f8bdd4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#! /usr/bin/perl
# Quick transfer to the downloaded Text::Template
BEGIN {
use File::Spec::Functions;
use File::Basename;
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;
|