r51392 - in /trunk/libparse-recdescent-perl: Changes MANIFEST META.yml README debian/changelog debian/copyright debian/rules demo/demo.pl lib/Parse/RecDescent.pm t/leftop_cap.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Sun Jan 24 04:41:35 UTC 2010 

Author: jawnsy-guest
Date: Sun Jan 24 04:41:28 2010
New Revision: 51392

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51392
Log:
* New upstream release
* Update overrides to be more consistent with debhelper.pod
* Update copyright to new DEP5 format

Added:
    trunk/libparse-recdescent-perl/t/leftop_cap.t
      - copied unchanged from r51341, branches/upstream/libparse-recdescent-perl/current/t/leftop_cap.t
Modified:
    trunk/libparse-recdescent-perl/Changes
    trunk/libparse-recdescent-perl/MANIFEST
    trunk/libparse-recdescent-perl/META.yml
    trunk/libparse-recdescent-perl/README
    trunk/libparse-recdescent-perl/debian/changelog
    trunk/libparse-recdescent-perl/debian/copyright
    trunk/libparse-recdescent-perl/debian/rules
    trunk/libparse-recdescent-perl/demo/demo.pl
    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=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/Changes (original)
+++ trunk/libparse-recdescent-perl/Changes Sun Jan 24 04:41:28 2010
@@ -573,5 +573,7 @@
     - Fixed subtle bug in leftop and rightop caused by removal of $&
 
 
-1.962.2  Fri Aug 28 13:39:33 2009
-
+1.963  Thu Jan 21 09:13:19 2010
+
+    - Fixed even subtler bug in leftop and rightop caused by removal of $&
+      (Thanks Francesco)

Modified: trunk/libparse-recdescent-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/MANIFEST?rev=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/MANIFEST (original)
+++ trunk/libparse-recdescent-perl/MANIFEST Sun Jan 24 04:41:28 2010
@@ -75,3 +75,4 @@
 t/basics.t
 t/re_capture_return.t
 t/separated_repetition.t
+t/leftop_cap.t

Modified: trunk/libparse-recdescent-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/META.yml?rev=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/META.yml (original)
+++ trunk/libparse-recdescent-perl/META.yml Sun Jan 24 04:41:28 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Parse-RecDescent
-version:             1.962.2
+version:             1.963
 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=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/README (original)
+++ trunk/libparse-recdescent-perl/README Sun Jan 24 04:41:28 2010
@@ -1,4 +1,4 @@
-Parse::RecDescent version 1.962.2
+Parse::RecDescent version 1.963
 
 NAME
 

Modified: trunk/libparse-recdescent-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/debian/changelog?rev=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/debian/changelog (original)
+++ trunk/libparse-recdescent-perl/debian/changelog Sun Jan 24 04:41:28 2010
@@ -1,4 +1,9 @@
-libparse-recdescent-perl (1.962.2+dfsg-2) UNRELEASED; urgency=low
+libparse-recdescent-perl (1.963+dfsg-1) UNRELEASED; urgency=low
+
+  [ Jonathan Yu ]
+  * New upstream release
+  * Update overrides to be more consistent with debhelper.pod
+  * Update copyright to new DEP5 format
 
   [ Ryan Niebur ]
   * Update jawnsy's email address
@@ -7,7 +12,7 @@
   * debian/control: Changed: (build-)depend on perl instead of perl-
     modules.
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Tue, 01 Sep 2009 21:19:29 -0700
+ -- Jonathan Yu <jawnsy at cpan.org>  Sat, 23 Jan 2010 23:49:45 -0500
 
 libparse-recdescent-perl (1.962.2+dfsg-1) unstable; urgency=low
 

Modified: trunk/libparse-recdescent-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/debian/copyright?rev=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/debian/copyright (original)
+++ trunk/libparse-recdescent-perl/debian/copyright Sun Jan 24 04:41:28 2010
@@ -1,42 +1,43 @@
-Format-Specification:
-    http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Damian Conway <dconway at cpan.org>
-Upstream-Source: http://search.cpan.org/dist/Parse-RecDescent/
-Upstream-Name: Parse-RecDescent
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=59
+Maintainer: Damian Conway <dconway at cpan.org>
+Source: http://search.cpan.org/dist/Parse-RecDescent/
+Name: Parse-RecDescent
 
 Files: *
 Copyright: 1997-2007, Damian Conway <dconway at cpan.org>
-License-Alias: Perl
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
 
 Files: debian/*
-Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
+Copyright: 2009-2010, Jonathan Yu <jawnsy at cpan.org>
  1998-2009, Rafael Laboissiere <rafael at debian.org>
 License: GPL-3+
 
 Files: debian/patches/*
 Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
 
 License: Artistic
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the Artistic License, which comes with Perl.
-    On Debian GNU/Linux systems, the complete text of the Artistic License
-    can be found in `/usr/share/common-licenses/Artistic'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
 
 License: GPL-1+
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 1, or (at your option)
-    any later version.
-    On Debian GNU/Linux systems, the complete text of the GNU General
-    Public License can be found in `/usr/share/common-licenses/GPL'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
 
 License: GPL-3+
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 3, or (at your option)
-    any later version.
-    On Debian GNU/Linux systems, the complete text of the GNU General
-    Public License can be found in `/usr/share/common-licenses/GPL-3'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 3, or (at your option)
+ any later version.
+ .
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL-3'
 

Modified: trunk/libparse-recdescent-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/debian/rules?rev=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/debian/rules (original)
+++ trunk/libparse-recdescent-perl/debian/rules Sun Jan 24 04:41:28 2010
@@ -2,16 +2,14 @@
 
 PACKAGE = $(shell dh_listpackages)
 TMP     = $(CURDIR)/debian/$(PACKAGE)
-EXAMPLES= $(TMP)/usr/share/doc/libparse-recdescent-perl/examples
-PERL   ?= /usr/bin/perl
 
 %:
 	dh $@
 
 override_dh_installexamples:
 	dh_installexamples
-	sed -i 's:^#!\s*/usr/local/bin/perl:#! $(PERL):' $(EXAMPLES)/*
+	sed -i '1s|^#!\s*/usr/local/bin/perl|#!/usr/bin/perl|' $(TMP)/usr/share/doc/$(PACKAGE)/examples/*
 
 override_dh_fixperms:
 	dh_fixperms
-	chmod -x $(EXAMPLES)/*
+	chmod -x $(TMP)/usr/share/doc/$(PACKAGE)/examples/*

Modified: trunk/libparse-recdescent-perl/demo/demo.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libparse-recdescent-perl/demo/demo.pl?rev=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/demo/demo.pl (original)
+++ trunk/libparse-recdescent-perl/demo/demo.pl Sun Jan 24 04:41:28 2010
@@ -1,4 +1,4 @@
-#! /usr/local/bin/perl -sw
+#! /usr/bin/perl -w
 
 package Foo;
 use base Parse::RecDescent;
@@ -8,6 +8,7 @@
 }
 
 package main;
+
 
 $parse = new Parse::RecDescent(<<'EOG');
 	input	 :	"cat"

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=51392&op=diff
==============================================================================
--- trunk/libparse-recdescent-perl/lib/Parse/RecDescent.pm (original)
+++ trunk/libparse-recdescent-perl/lib/Parse/RecDescent.pm Sun Jan 24 04:41:28 2010
@@ -1594,7 +1594,7 @@
             ' . $op->code(@_[1..2]) . '
             ' . ($op->isterminal() ? 'pop @item;' : '$backtrack=1;' ) . '
             ' . (ref($op) eq 'Parse::RecDescent::Token'
-                ? 'if (defined $2) {push @item, $item{'.($self->{name}||$self->{hashname}).'}=$2; $backtrack=1;}'
+                ? 'if (defined $1) {push @item, $item{'.($self->{name}||$self->{hashname}).'}=$1; $backtrack=1;}'
                 : "" ) . '
             ' . $rightarg->code(@_[1..2]) . '
             $savetext = $text;
@@ -1620,7 +1620,7 @@
             ' . $op->code(@_[1..2]) . '
             $savetext = $text;
             ' . ($op->isterminal() ? 'pop @item;' : "" ) . '
-            ' . (ref($op) eq 'Parse::RecDescent::Token' ? 'do { push @item, $item{'.($self->{name}||$self->{hashname}).'}=$2; } if defined $2;' : "" ) . '
+            ' . (ref($op) eq 'Parse::RecDescent::Token' ? 'do { push @item, $item{'.($self->{name}||$self->{hashname}).'}=$1; } if defined $1;' : "" ) . '
           }
           $text = $savetext;
           pop @item if $backtrack;
@@ -1723,7 +1723,7 @@
 
 my $ERRORS = 0;
 
-use version; our $VERSION = qv('1.962.2');
+our $VERSION = '1.963';
 
 # BUILDING A PARSER
 
@@ -1772,7 +1772,12 @@
     die "Compilation of Parse::RecDescent grammars not yet implemented\n";
 }
 
-sub DESTROY {}  # SO AUTOLOADER IGNORES IT
+sub DESTROY {
+    my ($self) = @_;
+    my $namespace = $self->{namespace};
+    $namespace =~ s/Parse::RecDescent:://;
+    delete $Parse::RecDescent::{$namespace.'::'};
+}
 
 # BUILDING A GRAMMAR....
 
@@ -3120,7 +3125,7 @@
 
 =head1 VERSION
 
-This document describes version 1.94 of Parse::RecDescent,
+This document describes version 1.963 of Parse::RecDescent
 released April  9, 2003.
 
 =head1 SYNOPSIS

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