r39897 - in /trunk/libdevel-declare-perl: Changes Declare.xs META.yml Makefile.PL debian/changelog lib/Devel/Declare.pm stolen_chunk_of_toke.c t/lines.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Tue Jul 14 14:27:55 UTC 2009
Author: jawnsy-guest
Date: Tue Jul 14 14:27:45 2009
New Revision: 39897
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=39897
Log:
no release necessary; new upstream
Modified:
trunk/libdevel-declare-perl/Changes
trunk/libdevel-declare-perl/Declare.xs
trunk/libdevel-declare-perl/META.yml
trunk/libdevel-declare-perl/Makefile.PL
trunk/libdevel-declare-perl/debian/changelog
trunk/libdevel-declare-perl/lib/Devel/Declare.pm
trunk/libdevel-declare-perl/stolen_chunk_of_toke.c
trunk/libdevel-declare-perl/t/lines.t
Modified: trunk/libdevel-declare-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/Changes?rev=39897&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/Changes (original)
+++ trunk/libdevel-declare-perl/Changes Tue Jul 14 14:27:45 2009
@@ -1,17 +1,20 @@
Changes for Devel-Declare
-0.005006
+0.005007 - 13 Jul 2009
+ - Fix line numbers not being updated from skipspace calls
+
+0.005006 - 16 Jun 2009
- Fix compilation on 5.8 perls.
-0.005005
+0.005005 - 05 Jun 2009
- Improve compatibility with MAD-enabled perls
(Reini Urban, Closes RT#45779).
-0.005004
+0.005004 - 03 Jun 2009
- Don't redefine MEM_WRAP_CHECK_ if it's already defined, getting rid of
compilation errors on some perls (Maik Fischer).
-0.005003
+0.005003 - 24 May 2009
- Failing tests for line number issues (Ash Berlin).
- Add strip_names_and_args (Cory Watson).
- Various pod fixes (Yanick Champoux, Florian Ragwitz).
Modified: trunk/libdevel-declare-perl/Declare.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/Declare.xs?rev=39897&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/Declare.xs (original)
+++ trunk/libdevel-declare-perl/Declare.xs Tue Jul 14 14:27:45 2009
@@ -117,10 +117,11 @@
unsigned int new_len = strlen(new_value);
if (SvLEN(PL_linestr) < new_len) {
- croak("forced to realloc PL_linestr for line %s, bailing out before we crash harder", SvPVX(PL_linestr));
- }
-
- SvGROW(PL_linestr, new_len);
+ croak("PL_linestr not long enough, was Devel::Declare loaded soon enough in %s",
+ CopFILE(&PL_compiling)
+ );
+ }
+
memcpy(SvPVX(PL_linestr), new_value, new_len+1);
Modified: trunk/libdevel-declare-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/META.yml?rev=39897&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/META.yml (original)
+++ trunk/libdevel-declare-perl/META.yml Tue Jul 14 14:27:45 2009
@@ -10,7 +10,7 @@
ExtUtils::Depends: 0
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.91'
+generated_by: 'Module::Install version 0.910'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -28,4 +28,4 @@
perl: 5.8.1
resources:
license: http://dev.perl.org/licenses/
-version: 0.005006
+version: 0.005007
Modified: trunk/libdevel-declare-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/Makefile.PL?rev=39897&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/Makefile.PL (original)
+++ trunk/libdevel-declare-perl/Makefile.PL Tue Jul 14 14:27:45 2009
@@ -1,4 +1,4 @@
-use inc::Module::Install 0.67;
+use inc::Module::Install 0.91;
use 5.008001;
@@ -25,7 +25,7 @@
WriteMakefile(
dist => {
- PREOP => 'pod2text lib/Devel/Declare.pm >$(DISTVNAME)/README'
+ PREOP => 'pod2text lib/Devel/Declare.pm >README'
},
$pkg->get_makefile_vars,
);
Modified: trunk/libdevel-declare-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/debian/changelog?rev=39897&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/debian/changelog (original)
+++ trunk/libdevel-declare-perl/debian/changelog Tue Jul 14 14:27:45 2009
@@ -1,17 +1,13 @@
-libdevel-declare-perl (0.005006-1) UNRELEASED; urgency=low
+libdevel-declare-perl (0.005007-1) UNRELEASED; urgency=low
no need to upload
- [ Jonathan Yu ]
* New upstream release
[ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- [ Ryan Niebur ]
- * New upstream release
-
- -- Ryan Niebur <ryanryan52 at gmail.com> Tue, 16 Jun 2009 14:01:33 -0700
+ -- Jonathan Yu <frequency at cpan.org> Tue, 14 Jul 2009 06:28:21 -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=39897&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/lib/Devel/Declare.pm (original)
+++ trunk/libdevel-declare-perl/lib/Devel/Declare.pm Tue Jul 14 14:27:45 2009
@@ -4,7 +4,7 @@
use warnings;
use 5.008001;
-our $VERSION = '0.005006';
+our $VERSION = '0.005007';
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=39897&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/stolen_chunk_of_toke.c (original)
+++ trunk/libdevel-declare-perl/stolen_chunk_of_toke.c Tue Jul 14 14:27:45 2009
@@ -63,6 +63,20 @@
#else
#define SPACE_OR_TAB(c) ((c)==' '||(c)=='\t')
#endif
+
+/*
+ * Normally, during compile time, PL_curcop == &PL_compiling is true. However,
+ * Devel::Declare makes the interpreter call back to perl during compile time,
+ * which temporarily enters runtime. Then perl space calls various functions
+ * from this file, which are designed to work during compile time. They all
+ * happen to operate on PL_curcop, not PL_compiling. That doesn't make a
+ * difference in the core, but it does for Devel::Declare, which operates at
+ * runtime, but still wants to mangle the things that are about to be compiled.
+ * That's why we define our own PL_curcop and make it point to PL_compiling
+ * here.
+ */
+#undef PL_curcop
+#define PL_curcop (&PL_compiling)
#define CLINE (PL_copline = (CopLINE(PL_curcop) < PL_copline ? CopLINE(PL_curcop) : PL_copline))
Modified: trunk/libdevel-declare-perl/t/lines.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdevel-declare-perl/t/lines.t?rev=39897&op=diff
==============================================================================
--- trunk/libdevel-declare-perl/t/lines.t (original)
+++ trunk/libdevel-declare-perl/t/lines.t Tue Jul 14 14:27:45 2009
@@ -47,9 +47,6 @@
#line 48
is(@lines, 2, "2 line numbers recorded");
is $lines[0], 100, "fun starts on line 100";
-{
- local $TODO = "line numbers aren't quite right yet, sometimes";
- is $lines[1], 101, "fun stops on line 101";
- is $line, 102, "next statement on line 102";
- is $line2, 103, "next statement on line 103";
-}
+is $lines[1], 101, "fun stops on line 101";
+is $line, 102, "next statement on line 102";
+is $line2, 103, "next statement on line 103";
More information about the Pkg-perl-cvs-commits
mailing list