r73249 - in /branches/upstream/libdevel-declare-perl/current: Changes Declare.xs MANIFEST META.yml README lib/Devel/Declare.pm lib/Devel/Declare/MethodInstaller/Simple.pm t/early0.t t/early1.t t/early1_x.pm
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Apr 23 17:05:34 UTC 2011
Author: gregoa
Date: Sat Apr 23 17:05:24 2011
New Revision: 73249
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73249
Log:
[svn-upgrade] new version libdevel-declare-perl (0.006003)
Added:
branches/upstream/libdevel-declare-perl/current/t/early0.t
branches/upstream/libdevel-declare-perl/current/t/early1.t
branches/upstream/libdevel-declare-perl/current/t/early1_x.pm
Removed:
branches/upstream/libdevel-declare-perl/current/README
Modified:
branches/upstream/libdevel-declare-perl/current/Changes
branches/upstream/libdevel-declare-perl/current/Declare.xs
branches/upstream/libdevel-declare-perl/current/MANIFEST
branches/upstream/libdevel-declare-perl/current/META.yml
branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare.pm
branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare/MethodInstaller/Simple.pm
Modified: branches/upstream/libdevel-declare-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/Changes?rev=73249&op=diff
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/Changes (original)
+++ branches/upstream/libdevel-declare-perl/current/Changes Sat Apr 23 17:05:24 2011
@@ -1,4 +1,10 @@
Changes for Devel-Declare
+
+0.006003 - 12 Apr 2011
+ - Fix test-failures on old perl versions (Zefram).
+
+0.006002 - 08 Apr 2011
+ - Re-add Support for very early growing of PL_linestr using filters (Zefram).
0.006001 - 26 Feb 2011
- Support perl >= 5.13.7 by re-allocating PL_linestr in block hooks (Zefram).
Modified: branches/upstream/libdevel-declare-perl/current/Declare.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/Declare.xs?rev=73249&op=diff
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/Declare.xs (original)
+++ branches/upstream/libdevel-declare-perl/current/Declare.xs Sat Apr 23 17:05:24 2011
@@ -379,6 +379,8 @@
return o;
}
+#endif /* !DD_GROW_VIA_BLOCKHOOK */
+
static I32 dd_filter_realloc(pTHX_ int idx, SV *sv, int maxlen)
{
const I32 count = FILTER_READ(idx+1, sv, maxlen);
@@ -386,8 +388,6 @@
/* filter_del(dd_filter_realloc); */
return count;
}
-
-#endif /* !DD_GROW_VIA_BLOCKHOOK */
static int dd_handle_const(pTHX_ char *name) {
switch (PL_lex_inwhat) {
@@ -500,9 +500,7 @@
hook_op_check(OP_CONST, dd_ck_const, NULL);
#endif /* !DD_CONST_VIA_RV2CV */
}
-#if !DD_GROW_VIA_BLOCKHOOK
filter_add(dd_filter_realloc, NULL);
-#endif /* !DD_GROW_VIA_BLOCKHOOK */
char*
get_linestr()
Modified: branches/upstream/libdevel-declare-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/MANIFEST?rev=73249&op=diff
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/MANIFEST (original)
+++ branches/upstream/libdevel-declare-perl/current/MANIFEST Sat Apr 23 17:05:24 2011
@@ -11,7 +11,6 @@
Makefile.PL
MANIFEST This list of files
META.yml
-README
stolen_chunk_of_toke.c
t/00load.t
t/build_sub_installer.t
@@ -20,6 +19,9 @@
t/ctx-simple.t
t/debug.pl
t/debug.t
+t/early0.t
+t/early1.t
+t/early1_x.pm
t/eval.t
t/fail.t
t/lines.t
Modified: branches/upstream/libdevel-declare-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/META.yml?rev=73249&op=diff
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/META.yml (original)
+++ branches/upstream/libdevel-declare-perl/current/META.yml Sat Apr 23 17:05:24 2011
@@ -30,4 +30,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: git://github.com/rafl/devel-declare.git
-version: 0.006001
+version: 0.006003
Modified: branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare.pm?rev=73249&op=diff
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare.pm (original)
+++ branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare.pm Sat Apr 23 17:05:24 2011
@@ -4,7 +4,7 @@
use warnings;
use 5.008001;
-our $VERSION = '0.006001';
+our $VERSION = '0.006003';
use constant DECLARE_NAME => 1;
use constant DECLARE_PROTO => 2;
Modified: branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare/MethodInstaller/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare/MethodInstaller/Simple.pm?rev=73249&op=diff
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare/MethodInstaller/Simple.pm (original)
+++ branches/upstream/libdevel-declare-perl/current/lib/Devel/Declare/MethodInstaller/Simple.pm Sat Apr 23 17:05:24 2011
@@ -7,7 +7,7 @@
use strict;
use warnings;
-our $VERSION = '0.006001';
+our $VERSION = '0.006003';
sub install_methodhandler {
my $class = shift;
Added: branches/upstream/libdevel-declare-perl/current/t/early0.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/t/early0.t?rev=73249&op=file
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/t/early0.t (added)
+++ branches/upstream/libdevel-declare-perl/current/t/early0.t Sat Apr 23 17:05:24 2011
@@ -1,0 +1,21 @@
+use strict;
+use warnings;
+use Test::More tests => 1;
+BEGIN {
+ require Devel::Declare;
+ *class = sub (&) { $_[0]->() };
+ Devel::Declare->setup_for(__PACKAGE__, {
+ class => {
+ const => sub {
+ my ($kw, $off) = @_;
+ $off += Devel::Declare::toke_move_past_token($off);
+ $off += Devel::Declare::toke_skipspace($off);
+ die unless substr(Devel::Declare::get_linestr(), $off, 1) eq '{';
+ my $l = Devel::Declare::get_linestr();
+ substr $l, $off + 1, 0, 'pass q[injected];' . (';' x 1000);
+ Devel::Declare::set_linestr($l);
+ },
+ },
+ });
+}
+class {};
Added: branches/upstream/libdevel-declare-perl/current/t/early1.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/t/early1.t?rev=73249&op=file
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/t/early1.t (added)
+++ branches/upstream/libdevel-declare-perl/current/t/early1.t Sat Apr 23 17:05:24 2011
@@ -1,0 +1,5 @@
+use strict;
+use warnings;
+use Test::More tests => 1;
+use t::early1_x;
+class {};
Added: branches/upstream/libdevel-declare-perl/current/t/early1_x.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdevel-declare-perl/current/t/early1_x.pm?rev=73249&op=file
==============================================================================
--- branches/upstream/libdevel-declare-perl/current/t/early1_x.pm (added)
+++ branches/upstream/libdevel-declare-perl/current/t/early1_x.pm Sat Apr 23 17:05:24 2011
@@ -1,0 +1,24 @@
+package t::early1_x;
+use strict;
+use warnings;
+sub import {
+ require Devel::Declare;
+ my $caller = caller();
+ no strict 'refs';
+ *{ "${caller}::class" } = sub (&) { $_[0]->() };
+ Devel::Declare->setup_for($caller, {
+ class => {
+ const => sub {
+ my ($kw, $off) = @_;
+ $off += Devel::Declare::toke_move_past_token($off);
+ $off += Devel::Declare::toke_skipspace($off);
+ die unless substr(Devel::Declare::get_linestr(), $off, 1) eq '{';
+ my $l = Devel::Declare::get_linestr();
+ substr $l, $off + 1, 0, 'pass q[injected];' . (';' x 1000);
+ Devel::Declare::set_linestr($l);
+ },
+ },
+ });
+}
+
+1;
More information about the Pkg-perl-cvs-commits
mailing list