r52917 - in /branches/upstream/libparse-recdescent-perl/current: Changes META.yml README lib/Parse/RecDescent.pm

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Wed Feb 17 01:07:46 UTC 2010


Author: jawnsy-guest
Date: Wed Feb 17 01:07:35 2010
New Revision: 52917

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52917
Log:
[svn-upgrade] Integrating new upstream version, libparse-recdescent-perl (1.964+dfsg)

Modified:
    branches/upstream/libparse-recdescent-perl/current/Changes
    branches/upstream/libparse-recdescent-perl/current/META.yml
    branches/upstream/libparse-recdescent-perl/current/README
    branches/upstream/libparse-recdescent-perl/current/lib/Parse/RecDescent.pm

Modified: branches/upstream/libparse-recdescent-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/Changes?rev=52917&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/Changes (original)
+++ branches/upstream/libparse-recdescent-perl/current/Changes Wed Feb 17 01:07:35 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: branches/upstream/libparse-recdescent-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/META.yml?rev=52917&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/META.yml (original)
+++ branches/upstream/libparse-recdescent-perl/current/META.yml Wed Feb 17 01:07:35 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: branches/upstream/libparse-recdescent-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/README?rev=52917&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/README (original)
+++ branches/upstream/libparse-recdescent-perl/current/README Wed Feb 17 01:07:35 2010
@@ -1,4 +1,4 @@
-Parse::RecDescent version 1.963
+Parse::RecDescent version 1.964
 
 NAME
 

Modified: branches/upstream/libparse-recdescent-perl/current/lib/Parse/RecDescent.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/lib/Parse/RecDescent.pm?rev=52917&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/lib/Parse/RecDescent.pm (original)
+++ branches/upstream/libparse-recdescent-perl/current/lib/Parse/RecDescent.pm Wed Feb 17 01:07:35 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




More information about the Pkg-perl-cvs-commits mailing list