r39549 - in /trunk/libtemplate-declare-perl: Changes MANIFEST.SKIP SIGNATURE debian/changelog lib/Template/Declare.pm lib/Template/Declare/Tags.pm
nhandler-guest at users.alioth.debian.org
nhandler-guest at users.alioth.debian.org
Thu Jul 9 14:47:45 UTC 2009
Author: nhandler-guest
Date: Thu Jul 9 14:47:33 2009
New Revision: 39549
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39549
Log:
Update to 0.40
Modified:
trunk/libtemplate-declare-perl/Changes
trunk/libtemplate-declare-perl/MANIFEST.SKIP
trunk/libtemplate-declare-perl/SIGNATURE
trunk/libtemplate-declare-perl/debian/changelog
trunk/libtemplate-declare-perl/lib/Template/Declare.pm
trunk/libtemplate-declare-perl/lib/Template/Declare/Tags.pm
Modified: trunk/libtemplate-declare-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtemplate-declare-perl/Changes?rev=39549&op=diff
==============================================================================
--- trunk/libtemplate-declare-perl/Changes (original)
+++ trunk/libtemplate-declare-perl/Changes Thu Jul 9 14:47:33 2009
@@ -1,3 +1,7 @@
+0.40 - 2009-07-08
+* Fix subname issue with the debugger and specifically Devel::NYTProf
+* String::BufferStack usage improvements
+
0.39 - 2009-03-05
* No code changes; increase Test::Warn dependency to 0.11, as 0.10 was
broken
Modified: trunk/libtemplate-declare-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtemplate-declare-perl/MANIFEST.SKIP?rev=39549&op=diff
==============================================================================
--- trunk/libtemplate-declare-perl/MANIFEST.SKIP (original)
+++ trunk/libtemplate-declare-perl/MANIFEST.SKIP Thu Jul 9 14:47:33 2009
@@ -41,4 +41,5 @@
test\.[co]
benchmarks/.*
\.svn
+\.git
\.t_$
Modified: trunk/libtemplate-declare-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtemplate-declare-perl/SIGNATURE?rev=39549&op=diff
==============================================================================
--- trunk/libtemplate-declare-perl/SIGNATURE (original)
+++ trunk/libtemplate-declare-perl/SIGNATURE Thu Jul 9 14:47:33 2009
@@ -14,9 +14,9 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 803a429e08a2af0cb0533e893aa8110f92c908d8 Changes
+SHA1 2a7ecafdfee2c1d9823f284abb1cace9b6443ad5 Changes
SHA1 5afe8e5f287785ce0b2e7dd86297188436e247fb MANIFEST
-SHA1 6f70228d55d21d8a18d86c6d9acb1a9d5a5504fe MANIFEST.SKIP
+SHA1 04ed470d2969b691120bbc2df1dfe1fe351dd4ed MANIFEST.SKIP
SHA1 ab968279525d26d23e4bf76e3d15e4951f87996f META.yml
SHA1 ee899bc436e17646223925d431d3e9727c1254d1 Makefile.PL
SHA1 65da83220e6bf55fec475fe014f90ad37a9f4969 README
@@ -31,14 +31,14 @@
SHA1 bd988ba3fb7eee0ad889eadc2f5338a8d98fc2a3 inc/Module/Install/Metadata.pm
SHA1 e9aa83f3e8b16ccfce544a90a57b63b70a497759 inc/Module/Install/Win32.pm
SHA1 ade2ac0b0246d4d8e28fa46942e53f6925abda46 inc/Module/Install/WriteAll.pm
-SHA1 f5d7256e29324307d7ad4cf54b57e21e30c49349 lib/Template/Declare.pm
+SHA1 eea7a0ba18931fba4545a22cfbba0bc71e633abb lib/Template/Declare.pm
SHA1 a44d64624dd8d0ce708a0d056a8945783fd9cd53 lib/Template/Declare/Buffer.pm
SHA1 5b8295d842ccea0a21661583446344733f668879 lib/Template/Declare/TagSet.pm
SHA1 a3dd8253f179c0e07ea80db89c40a2755eade801 lib/Template/Declare/TagSet/HTML.pm
SHA1 f95b68b4c50afcd1c66d225556dcfa2b2f18e619 lib/Template/Declare/TagSet/RDF.pm
SHA1 4899124cdf56c12fcc7ac1a2b3d99910ed5b8bbb lib/Template/Declare/TagSet/RDF/EM.pm
SHA1 460ab0856c8aea75c81e8cb1e5fb287515b1b2bf lib/Template/Declare/TagSet/XUL.pm
-SHA1 0e53d539095fd778f59fc02ae9cd9f9a713d4385 lib/Template/Declare/Tags.pm
+SHA1 b21b17b9bedf476cd17a2528720fd5f771ebfadd lib/Template/Declare/Tags.pm
SHA1 7b2832c140109b23ba669db59e5b357dd1d255ec t/99-pod-coverage.t
SHA1 bb0da54f2b3f2d7955baa41ee458cb3d1887f475 t/99-pod.t
SHA1 8de6d59c7ed7c771f9cdc5e2dbaef0c31c7ab439 t/MyTagSet.pm
@@ -83,9 +83,9 @@
SHA1 6a76d87732069df9fa763e4e69a78eb0aff134ba t/wrappers.t
SHA1 c07bcff77839e622b8b1ecffd492f5ccf0ab359c t/xss.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v2.0.9 (GNU/Linux)
+Version: GnuPG v1.4.7 (Darwin)
-iEYEARECAAYFAkmwepUACgkQMflWJZZAbqC3uQCfUUnCARJ3eK7g2vxOkW1mqe5f
-ILQAoIVWuGwpjWW9FYvIwchBY0HIaSV8
-=adHv
+iD8DBQFKVQBcsxfQtHhyRPoRAoeXAJ9N5X2WeIAgZCK0ow8lbUOTWlatFwCcCSmq
+bWVbz1+k5X2m94gjixfbQkA=
+=e1RY
-----END PGP SIGNATURE-----
Modified: trunk/libtemplate-declare-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtemplate-declare-perl/debian/changelog?rev=39549&op=diff
==============================================================================
--- trunk/libtemplate-declare-perl/debian/changelog (original)
+++ trunk/libtemplate-declare-perl/debian/changelog Thu Jul 9 14:47:33 2009
@@ -1,3 +1,9 @@
+libtemplate-declare-perl (0.40-1) UNRELEASED; urgency=low
+
+ * (NOT RELEASED YET) New upstream release
+
+ -- Nathan Handler <nhandler at ubuntu.com> Thu, 09 Jul 2009 14:36:09 +0000
+
libtemplate-declare-perl (0.39-2) UNRELEASED; urgency=low
* debian/watch: Update to ignore development releases.
Modified: trunk/libtemplate-declare-perl/lib/Template/Declare.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtemplate-declare-perl/lib/Template/Declare.pm?rev=39549&op=diff
==============================================================================
--- trunk/libtemplate-declare-perl/lib/Template/Declare.pm (original)
+++ trunk/libtemplate-declare-perl/lib/Template/Declare.pm Thu Jul 9 14:47:33 2009
@@ -8,7 +8,7 @@
use Class::ISA;
use String::BufferStack;
-our $VERSION = "0.39";
+our $VERSION = "0.40";
use base 'Class::Data::Inheritable';
__PACKAGE__->mk_classdata('roots');
Modified: trunk/libtemplate-declare-perl/lib/Template/Declare/Tags.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtemplate-declare-perl/lib/Template/Declare/Tags.pm?rev=39549&op=diff
==============================================================================
--- trunk/libtemplate-declare-perl/lib/Template/Declare/Tags.pm (original)
+++ trunk/libtemplate-declare-perl/lib/Template/Declare/Tags.pm Thu Jul 9 14:47:33 2009
@@ -503,12 +503,12 @@
my $sub = sub {
local $self = $_self;
local *__ANON__ = $tag;
- _tag($tagset, @__);
+ _tag($tagset, $tag, @__);
};
bless $sub, 'Template::Declare::Tag';
return $sub;
} else {
- _tag($tagset, @_);
+ _tag($tagset, $tag, @_);
}
};
_install(
@@ -584,7 +584,7 @@
my $coderef = shift;
Template::Declare->buffer->append("\n");
- Template::Declare->buffer->push( from => "T::D tag wrapper");
+ Template::Declare->buffer->push( from => "T::D tag wrapper", private => 1 );
my %attr = %ATTRIBUTES;
%ATTRIBUTES = (); # prevent leakage
@@ -593,29 +593,19 @@
map { ref($_) ? $_ : _postprocess($_) } #
$coderef->(%attr);
- my $has_content = Template::Declare->buffer->length;
- Template::Declare->buffer->pop;
- Template::Declare->buffer->append( "$last" ) if not $has_content and length $last;
+ my $content = Template::Declare->buffer->pop;
+ $content .= "$last" if not length $content and length $last;
+ Template::Declare->buffer->append( $content ) ;
return '';
}
sub _tag {
my $tagset = shift;
+ my $tag = shift;
my $code = shift;
my $more_code = shift;
- my ($package, $filename, $line, $subroutine, $hasargs,
- $wantarray, $evaltext, $is_require, $hints, $bitmask
- )
- = caller(1);
-
- # This is the hash of attributes filled in by attr() calls in the code;
-
- my $tag = $subroutine;
- $tag =~ s/^.*\:\://;
- # "html:foo"
- $tag = $tagset->namespace . ":$tag"
- if defined $tagset->namespace;
+ $tag = $tagset->namespace . ":$tag" if defined $tagset->namespace;
Template::Declare->buffer->append(
"\n"
@@ -626,6 +616,7 @@
);
my $attrs = "";
+ my $last;
{
no warnings qw( uninitialized redefine once );
@@ -655,10 +646,10 @@
local $TAG_NEST_DEPTH = $TAG_NEST_DEPTH + 1;
%ATTRIBUTES = ();
Template::Declare->buffer->push( private => 1, from => "T::D tag $tag" );
- my $last = join '', map { ref($_) && $_->isa('Template::Declare::Tag') ? $_ : _postprocess($_) } $code->();
- Template::Declare->buffer->append("$last") if not Template::Declare->buffer->length and length $last;
+ $last = join '', map { ref($_) && $_->isa('Template::Declare::Tag') ? $_ : _postprocess($_) } $code->();
}
my $content = Template::Declare->buffer->pop;
+ $content .= "$last" if not length $content and length $last;
Template::Declare->buffer->append($attrs);
if (length $content) {
More information about the Pkg-perl-cvs-commits
mailing list