Updated www/p5-Template-Toolkit to 2.23

patch-aa covered upstream

#-----------------------------------------------------------------------
# Version 2.23 - 21st January 2012
#------------------------------------------------------------------------

* Fixed bug RT#47929 which caused the XS Stash to die mysteriously when
  calling code that used string evaluation (e.g. DateTime).

* Fixed bug RT#68722 so that list.defined('alpha') always returns false.

* Added the TRACE_VARS option to keep track of what variables are used
  in a template.  It's not documented yet.  See t/trace_vars.t for an
  example of use.

* Applied patch from RT#48989 to avoid Template::Plugin::Procedural
  from adding target class' methods AUTOLOAD and new methods multiple
  times (Jens Rehsack)

* Applied patch from RT#53451 to accept negative epoch times in
  Template::Plugin::Date.

* Applied patch from Marc Remy to add $Template::Directive::WHILE_MAX
  option to tpage.

3 files changed, 6 insertions, 81 deletions

diff --git a/www/p5-Template-Toolkit/Makefile b/www/p5-Template-Toolkit/Makefile
index a6f1c9586da..c2d5f79227b 100644
--- a/www/p5-Template-Toolkit/Makefile
+++ b/www/p5-Template-Toolkit/Makefile
@@ -1,9 +1,7 @@
-# $NetBSD: Makefile,v 1.35 2011/08/14 16:06:09 obache Exp $
-#
+# $NetBSD: Makefile,v 1.36 2012/01/22 19:38:54 abs Exp $
 
-DISTNAME=	Template-Toolkit-2.22
+DISTNAME=	Template-Toolkit-2.23
 PKGNAME=	p5-${DISTNAME}
-PKGREVISION=	3
 SVR4_PKGNAME=	p5tto
 CATEGORIES=	www perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN:=Template/}
diff --git a/www/p5-Template-Toolkit/distinfo b/www/p5-Template-Toolkit/distinfo
index 1fac221035b..6fcfb631f1a 100644
--- a/www/p5-Template-Toolkit/distinfo
+++ b/www/p5-Template-Toolkit/distinfo
@@ -1,6 +1,5 @@
-$NetBSD: distinfo,v 1.11 2009/08/26 17:36:53 sno Exp $
+$NetBSD: distinfo,v 1.12 2012/01/22 19:38:54 abs Exp $
 
-SHA1 (Template-Toolkit-2.22.tar.gz) = 5e553cdb97a594e0d81c5bd7c9b5664f963ffa4f
-RMD160 (Template-Toolkit-2.22.tar.gz) = bcb15f3cf7de5f9ec6de31f9b427c22f30c1592e
-Size (Template-Toolkit-2.22.tar.gz) = 492219 bytes
-SHA1 (patch-aa) = 9ec406bb228cd5ac62460453ec5af678562e4f1f
+SHA1 (Template-Toolkit-2.23.tar.gz) = 84bd304e83b3da8fbbdb8fc766e5570201c1b384
+RMD160 (Template-Toolkit-2.23.tar.gz) = 94c013db6f48e8c17e389364df62f09b354f7ffd
+Size (Template-Toolkit-2.23.tar.gz) = 496692 bytes
diff --git a/www/p5-Template-Toolkit/patches/patch-aa b/www/p5-Template-Toolkit/patches/patch-aa
deleted file mode 100644
index 31ffb2b043b..00000000000
--- a/www/p5-Template-Toolkit/patches/patch-aa
+++ /dev/null
@@ -1,72 +0,0 @@
-$NetBSD: patch-aa,v 1.5 2009/08/26 17:39:01 sno Exp $
-
-# Fixes RT #48989
-
---- lib/Template/Plugin/Procedural.pm.orig	2009-08-25 11:19:17.219629000 +0200
-+++ lib/Template/Plugin/Procedural.pm	2009-08-25 11:21:08.970766000 +0200
-@@ -39,34 +39,40 @@
-     # okay, in our proxy create the autoload routine that will
-     # call the right method in the real class
-     no strict "refs";
--    *{ $proxy . "::AUTOLOAD" } = sub {
--        # work out what the method is called
--        $AUTOLOAD =~ s!^.*::!!;
--
--        print STDERR "Calling '$AUTOLOAD' in '$class'\n"
--            if $DEBUG;
--
--        # look up the sub for that method (but in a OO way)
--        my $uboat = $class->can($AUTOLOAD);
--
--        # if it existed call it as a subroutine, not as a method
--        if ($uboat) {
--            shift @_;
--            return $uboat->(@_);
--        }
--
--        print STDERR "Eeek, no such method '$AUTOLOAD'\n"
--            if $DEBUG;
--
--        return "";
--    };
-+    unless( defined( *{ $proxy . "::AUTOLOAD" } ) )
-+    {
-+        *{ $proxy . "::AUTOLOAD" } = sub {
-+            # work out what the method is called
-+            $AUTOLOAD =~ s!^.*::!!;
-+
-+            print STDERR "Calling '$AUTOLOAD' in '$class'\n"
-+                if $DEBUG;
-+
-+            # look up the sub for that method (but in a OO way)
-+            my $uboat = $class->can($AUTOLOAD);
-+
-+            # if it existed call it as a subroutine, not as a method
-+            if ($uboat) {
-+                shift @_;
-+                return $uboat->(@_);
-+            }
-+
-+            print STDERR "Eeek, no such method '$AUTOLOAD'\n"
-+                if $DEBUG;
-+
-+            return "";
-+        };
-+    }
- 
-     # create a simple new method that simply returns a blessed
-     # scalar as the object.
--    *{ $proxy . "::new" } = sub {
--        my $this;
--        return bless \$this, $_[0];
--    };
-+    unless( defined( *{ $proxy . "::new" } ) )
-+    {
-+        *{ $proxy . "::new" } = sub {
-+            my $this;
-+            return bless \$this, $_[0];
-+        };
-+    }
- 
-     return $proxy;
- }