[Templates] Patch for Apache::Template to run with current mod_perl 2.0

[prev] [thread] [next] [Date index for 2005/03/14]

--=-=-=
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Hello,

attached is a small patch for Apache::Template 2.00_01 to make it
compatible with the current mod_perl 2.0 (1.999_22). The Apache
directive handling changed between the various pre 2.0 mod_perl
releases.

Best regards

--=20
Jens Kl=F6cker =B7 Public key: http://www.kloecker.org/jens/public-key.txt
   Key fingerprint: 7D5D 2B53 91DF 81DA 405D  6ADE CC4F 4342 4627 50A7
        Mastery of UNIX, like mastery of language, offers real freedom.
                                                      (Thomas Scoville)

--=-=-=
Content-Type: text/x-patch
Content-Disposition: inline; filename=Apache-Template-2.00_02.diff

diff -Naur Apache-Template-2.00_01/lib/Apache/Template.pm Apache-Template-2.00_02/lib/Apache/Template.pm
--- Apache-Template-2.00_01/lib/Apache/Template.pm	2004-07-06 16:47:52.000000000 +0000
+++ Apache-Template-2.00_02/lib/Apache/Template.pm	2005-02-07 19:05:10.000000000 +0000
@@ -42,7 +42,7 @@
 $DEBUG   = 0 unless defined $DEBUG;
 $Template::Config::SERVICE = 'Template::Service::Apache';
 
-our @APACHE_MODULE_COMMANDS = (
+my @APACHE_MODULE_COMMANDS = (
     #-- parsing/style options --
     {   name         => 'TT2Tags',
         errmsg       => 'tag style or start and end tags for template directives',
@@ -222,6 +222,8 @@
     },
 );
 
+Apache::Module::add(__PACKAGE__, \@APACHE_MODULE_COMMANDS);
+
 #------------------------------------------------------------------------
 # handler($request)
 #
@@ -245,7 +247,7 @@
 
     # create and cache a service for each hostname
     my $service = $SERVICE->{ $r->hostname() } ||= do {
-        my $cfg = Apache::Module->get_config(__PACKAGE__, 
+        my $cfg = Apache::Module::get_config(__PACKAGE__, 
                                              $r->server,
                                              $r->per_dir_config) || { };
         warn "setup service for hostname: ", $r->hostname, "  ($cfg):\n", 

--=-=-=--


_______________________________________________
templates mailing list
templates@xxxxxxxxxxxxxxxx.xxx
http://lists.template-toolkit.org/mailman/listinfo/templates