r37650 - in /trunk/libdevel-declare-perl: Changes MANIFEST META.yml debian/changelog lib/Devel/Declare.pm stolen_chunk_of_toke.c
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Jun 6 02:45:46 UTC 2009
Author: jawnsy-guest
Date: Sat Jun 6 02:45:42 2009
New Revision: 37650
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37650
Log:
Upgraded. No release neccessary.
Modified:
trunk/libdevel-declare-perl/Changes
trunk/libdevel-declare-perl/MANIFEST
trunk/libdevel-declare-perl/META.yml
trunk/libdevel-declare-perl/debian/changelog
trunk/libdevel-declare-perl/lib/Devel/Declare.pm
trunk/libdevel-declare-perl/stolen_chunk_of_toke.c
Modified: trunk/libdevel-declare-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/Changes?rev=37650&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/Changes (original)
+++ trunk/libdevel-declare-perl/Changes Sat Jun 6 02:45:42 2009
@@ -1,4 +1,8 @@
Changes for Devel-Declare
+
+0.005005
+ - Improve compatibility with MAD-enabled perls
+ (Reini Urban, Closes RT#45779).
0.005004
- Don't redefine MEM_WRAP_CHECK_ if it's already defined, getting rid of
Modified: trunk/libdevel-declare-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/MANIFEST?rev=37650&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/MANIFEST (original)
+++ trunk/libdevel-declare-perl/MANIFEST Sat Jun 6 02:45:42 2009
@@ -11,6 +11,7 @@
Makefile.PL
MANIFEST This list of files
META.yml
+README
stolen_chunk_of_toke.c
t/00load.t
t/build_sub_installer.t
Modified: trunk/libdevel-declare-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/META.yml?rev=37650&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/META.yml (original)
+++ trunk/libdevel-declare-perl/META.yml Sat Jun 6 02:45:42 2009
@@ -28,4 +28,4 @@
perl: 5.8.1
resources:
license: http://dev.perl.org/licenses/
-version: 0.005004
+version: 0.005005
Modified: trunk/libdevel-declare-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/debian/changelog?rev=37650&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/debian/changelog (original)
+++ trunk/libdevel-declare-perl/debian/changelog Sat Jun 6 02:45:42 2009
@@ -1,4 +1,9 @@
-libdevel-declare-perl (0.005004-1) UNRELEASED; urgency=low
+libdevel-declare-perl (0.005005-1) UNRELEASED; urgency=low
+
+ [ Jonathan Yu ]
+ * New upstream release; probably no need to upload
+ -> This provides a fix when Perl is compiled with -DPERL_MAD
+ I don't think this applies to Debian, but only Cygwin
[ Ryan Niebur ]
no need to upload
@@ -10,7 +15,7 @@
* debian/watch: Update to ignore development releases.
* debian/watch: Update to ignore development releases.
- -- Ryan Niebur <ryanryan52 at gmail.com> Wed, 03 Jun 2009 08:26:42 -0700
+ -- Jonathan Yu <frequency at cpan.org> Fri, 05 Jun 2009 22:41:26 -0400
libdevel-declare-perl (0.005003-1) unstable; urgency=low
Modified: trunk/libdevel-declare-perl/lib/Devel/Declare.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/lib/Devel/Declare.pm?rev=37650&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/lib/Devel/Declare.pm (original)
+++ trunk/libdevel-declare-perl/lib/Devel/Declare.pm Sat Jun 6 02:45:42 2009
@@ -4,7 +4,7 @@
use warnings;
use 5.008001;
-our $VERSION = '0.005004';
+our $VERSION = '0.005005';
use constant DECLARE_NAME => 1;
use constant DECLARE_PROTO => 2;
Modified: trunk/libdevel-declare-perl/stolen_chunk_of_toke.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/stolen_chunk_of_toke.c?rev=37650&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/stolen_chunk_of_toke.c (original)
+++ trunk/libdevel-declare-perl/stolen_chunk_of_toke.c Sat Jun 6 02:45:42 2009
@@ -138,12 +138,17 @@
#define PL_tokenbuf (PL_parser->tokenbuf)
#define PL_multi_end (PL_parser->multi_end)
#define PL_error_count (PL_parser->error_count)
-/* these three are from the non-PERL_MAD path but I don't -think- I need
+#define PL_nexttoke (PL_parser->nexttoke)
+/* these are from the non-PERL_MAD path but I don't -think- I need
the PERL_MAD stuff since my code isn't really populating things (mst) */
-# define PL_nexttoke (PL_parser->nexttoke)
+# ifdef PERL_MAD
+# define PL_curforce (PL_parser->curforce)
+# define PL_lasttoke (PL_parser->lasttoke)
+# else
# define PL_nexttype (PL_parser->nexttype)
# define PL_nextval (PL_parser->nextval)
-/* end of backcompat macros form 5.9 toke.c (mst) */
+# endif
+/* end of backcompat macros from 5.9 toke.c (mst) */
#endif
/* when ccflags include -DDEBUGGING we need this for earlier 5.8 perls */
@@ -845,6 +850,17 @@
STATIC void
S_force_next(pTHX_ I32 type)
{
+ dVAR;
+#ifdef PERL_MAD
+ if (PL_curforce < 0)
+ start_force(PL_lasttoke);
+ PL_nexttoke[PL_curforce].next_type = type;
+ if (PL_lex_state != LEX_KNOWNEXT)
+ PL_lex_defer = PL_lex_state;
+ PL_lex_state = LEX_KNOWNEXT;
+ PL_lex_expect = PL_expect;
+ PL_curforce = -1;
+#else
PL_nexttype[PL_nexttoke] = type;
PL_nexttoke++;
if (PL_lex_state != LEX_KNOWNEXT) {
@@ -852,6 +868,7 @@
PL_lex_expect = PL_expect;
PL_lex_state = LEX_KNOWNEXT;
}
+#endif
}
#define XFAKEBRACK 128
More information about the Pkg-perl-cvs-commits
mailing list