r52919 - in /trunk/libparse-recdescent-perl: Changes META.yml README debian/changelog debian/control lib/Parse/RecDescent.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Wed Feb 17 01:10:09 2010
New Revision: 52919

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52919
Log:
* New upstream release
* Standards-Version 3.8.4 (no changes)

Modified:
    trunk/libparse-recdescent-perl/Changes
    trunk/libparse-recdescent-perl/META.yml
    trunk/libparse-recdescent-perl/README
    trunk/libparse-recdescent-perl/debian/changelog
    trunk/libparse-recdescent-perl/debian/control
    trunk/libparse-recdescent-perl/lib/Parse/RecDescent.pm

Modified: trunk/libparse-recdescent-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/Changes?rev=52919&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/Changes (original)
+++ trunk/libparse-recdescent-perl/Changes Wed Feb 17 01:10:09 2010
@@ -577,3 +577,10 @@
 
     - Fixed even subtler bug in leftop and rightop caused by removal of $&
       (Thanks Francesco)
+
+
+1.964  Wed Feb 17 09:33:39 2010
+
+    - Fixed bug with undefined $1 when parsing literals (thanks Dan!)
+
+    - Fixed premature namespace destruction bug with compiled grammars

Modified: trunk/libparse-recdescent-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/META.yml?rev=52919&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/META.yml (original)
+++ trunk/libparse-recdescent-perl/META.yml Wed Feb 17 01:10:09 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Parse-RecDescent
-version:             1.963
+version:             1.964
 abstract:            Generate Recursive-Descent Parsers
 license:             ~
 author:              

Modified: trunk/libparse-recdescent-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/README?rev=52919&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/README (original)
+++ trunk/libparse-recdescent-perl/README Wed Feb 17 01:10:09 2010
@@ -1,4 +1,4 @@
-Parse::RecDescent version 1.963
+Parse::RecDescent version 1.964
 
 NAME
 

Modified: trunk/libparse-recdescent-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/debian/changelog?rev=52919&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/debian/changelog (original)
+++ trunk/libparse-recdescent-perl/debian/changelog Wed Feb 17 01:10:09 2010
@@ -1,3 +1,10 @@
+libparse-recdescent-perl (1.964+dfsg-1) UNRELEASED; urgency=low
+
+  * New upstream release
+  * Standards-Version 3.8.4 (no changes)
+
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 16 Feb 2010 20:30:19 -0500
+
 libparse-recdescent-perl (1.963+dfsg-1) unstable; urgency=low
 
   [ Jonathan Yu ]

Modified: trunk/libparse-recdescent-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/debian/control?rev=52919&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/debian/control (original)
+++ trunk/libparse-recdescent-perl/debian/control Wed Feb 17 01:10:09 2010
@@ -6,7 +6,7 @@
  libtest-pod-perl
 Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
 Uploaders: Jonathan Yu <jawnsy at cpan.org>
-Standards-Version: 3.8.3
+Standards-Version: 3.8.4
 Homepage: http://search.cpan.org/dist/Parse-RecDescent/
 Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libparse-recdescent-perl
 Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libparse-recdescent-perl/

Modified: trunk/libparse-recdescent-perl/lib/Parse/RecDescent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/lib/Parse/RecDescent.pm?rev=52919&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/lib/Parse/RecDescent.pm (original)
+++ trunk/libparse-recdescent-perl/lib/Parse/RecDescent.pm Wed Feb 17 01:10:09 2010
@@ -66,6 +66,8 @@
         $self = Parse::RecDescent->new($grammar,1,$class)
             || croak("Can't compile bad grammar")
                 if $grammar;
+
+        $self->{_precompiled} = 1;
 
         foreach ( keys %{$self->{rules}} )
             { $self->{rules}{$_}{changed} = 1 }
@@ -1723,7 +1725,7 @@
 
 my $ERRORS = 0;
 
-our $VERSION = '1.963';
+our $VERSION = '1.964';
 
 # BUILDING A PARSER
 
@@ -1776,7 +1778,9 @@
     my ($self) = @_;
     my $namespace = $self->{namespace};
     $namespace =~ s/Parse::RecDescent:://;
-    delete $Parse::RecDescent::{$namespace.'::'};
+    if (!$self->{_precompiled}) {
+        delete $Parse::RecDescent::{$namespace.'::'};
+    }
 }
 
 # BUILDING A GRAMMAR....
@@ -2363,11 +2367,12 @@
         }
         elsif ($grammar =~ m/$LITERAL/gco)
         {
-            ($code = $1) =~ s/\\\\/\\/g;
-            _parse("a literal terminal", $aftererror,$line,$1);
+            my $literal = $1;
+            ($code = $literal) =~ s/\\\\/\\/g;
+            _parse("a literal terminal", $aftererror,$line,$literal);
             $item = new Parse::RecDescent::Literal($code,$lookahead,$line);
             $prod and $prod->additem($item)
-                  or  _no_rule("literal terminal",$line,"'$1'");
+                  or  _no_rule("literal terminal",$line,"'$literal'");
         }
         elsif ($grammar =~ m/$INTERPLIT/gco)
         {
@@ -3125,7 +3130,7 @@
 
 =head1 VERSION
 
-This document describes version 1.963 of Parse::RecDescent
+This document describes version 1.964 of Parse::RecDescent
 released April  9, 2003.
 
 =head1 SYNOPSIS