blob: 6c4d3879d1f31fc64501e6a2017c3c031370a548 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
--- Template.pm.orig Fri Jun 18 21:42:06 2004
+++ Template.pm Fri Jun 25 13:33:50 2004
@@ -890,7 +890,9 @@
use strict; # and no funny business, either.
use Carp; # generate better errors with more context
+BEGIN { unshift(@INC, "%%PERL_INC%%"); }
use File::Spec; # generate paths that work on all platforms
+shift(@INC);
use Digest::MD5 qw(md5_hex); # generate cache keys
# define accessor constants used to improve readability of array
|
