Hello community,
here is the log from the commit of package perl-Parse-RecDescent for
openSUSE:Factory checked in at 2015-10-14 16:37:53
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Parse-RecDescent (Old)
and /work/SRC/openSUSE:Factory/.perl-Parse-RecDescent.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Parse-RecDescent"
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Parse-RecDescent/perl-Parse-RecDescent.changes
2015-09-24 06:13:13.000000000 +0200
+++
/work/SRC/openSUSE:Factory/.perl-Parse-RecDescent.new/perl-Parse-RecDescent.changes
2015-10-14 16:37:54.000000000 +0200
@@ -1,0 +2,14 @@
+Mon Sep 28 09:04:00 UTC 2015 - [email protected]
+
+- updated to 1.967013
+ see /usr/share/doc/packages/perl-Parse-RecDescent/Changes
+
+
+ 1.967013 Sun Sep 27 10:00:36 2015
+
+ - Wrap Data::Dumper->Dump() to localize some $Data::Dumper::VARS
+ to control the dumped output. In particular,
+ Data::Dumper::Terse=1 was reported to break parser
+ generation. (RT.cpan.org #107355, thanks Sherrard!)
+
+-------------------------------------------------------------------
Old:
----
Parse-RecDescent-1.967012.tar.gz
New:
----
Parse-RecDescent-1.967013.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Parse-RecDescent.spec ++++++
--- /var/tmp/diff_new_pack.1YFI4i/_old 2015-10-14 16:37:55.000000000 +0200
+++ /var/tmp/diff_new_pack.1YFI4i/_new 2015-10-14 16:37:55.000000000 +0200
@@ -17,7 +17,7 @@
Name: perl-Parse-RecDescent
-Version: 1.967012
+Version: 1.967013
Release: 0
%define cpan_name Parse-RecDescent
Summary: Generate Recursive-Descent Parsers
@@ -29,6 +29,7 @@
BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
+BuildRequires: perl(ExtUtils::MakeMaker) >= 6.5702
BuildRequires: perl(Module::Build)
%{perl_requires}
++++++ Parse-RecDescent-1.967012.tar.gz -> Parse-RecDescent-1.967013.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-RecDescent-1.967012/Changes
new/Parse-RecDescent-1.967013/Changes
--- old/Parse-RecDescent-1.967012/Changes 2015-09-13 17:00:59.000000000
+0200
+++ new/Parse-RecDescent-1.967013/Changes 2015-09-27 19:01:09.000000000
+0200
@@ -832,3 +832,10 @@
- Reference Data::Dumper::Sortkeys, not SortKeys. Actually
produces reproducible precompiled parsers now. (RT.cpan.org
#107061, thanks Slaven!)
+
+1.967013 Sun Sep 27 10:00:36 2015
+
+ - Wrap Data::Dumper->Dump() to localize some $Data::Dumper::VARS
+ to control the dumped output. In particular,
+ Data::Dumper::Terse=1 was reported to break parser
+ generation. (RT.cpan.org #107355, thanks Sherrard!)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-RecDescent-1.967012/MANIFEST
new/Parse-RecDescent-1.967013/MANIFEST
--- old/Parse-RecDescent-1.967012/MANIFEST 2015-09-13 02:44:06.000000000
+0200
+++ new/Parse-RecDescent-1.967013/MANIFEST 2015-09-27 19:37:24.000000000
+0200
@@ -89,3 +89,5 @@
tutorial/TPJ_maze.gif
tutorial/TPJ_tree.gif
tutorial/tutorial.html
+META.yml Module YAML meta-data (added by
MakeMaker)
+META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-RecDescent-1.967012/META.json
new/Parse-RecDescent-1.967013/META.json
--- old/Parse-RecDescent-1.967012/META.json 1970-01-01 01:00:00.000000000
+0100
+++ new/Parse-RecDescent-1.967013/META.json 2015-09-27 19:37:24.000000000
+0200
@@ -0,0 +1,43 @@
+{
+ "abstract" : "Generate Recursive-Descent Parsers",
+ "author" : [
+ "Damian Conway <[email protected]>",
+ "Jeremy T. Braun <[email protected]>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.113640",
+ "license" : [
+ "unknown"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : "2"
+ },
+ "name" : "Parse-RecDescent",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "6.5702"
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : "6.5702"
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Test::More" : 0,
+ "Text::Balanced" : "1.95"
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "1.967013"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-RecDescent-1.967012/META.yml
new/Parse-RecDescent-1.967013/META.yml
--- old/Parse-RecDescent-1.967012/META.yml 1970-01-01 01:00:00.000000000
+0100
+++ new/Parse-RecDescent-1.967013/META.yml 2015-09-27 19:37:24.000000000
+0200
@@ -0,0 +1,24 @@
+---
+abstract: 'Generate Recursive-Descent Parsers'
+author:
+ - 'Damian Conway <[email protected]>'
+ - 'Jeremy T. Braun <[email protected]>'
+build_requires:
+ ExtUtils::MakeMaker: 6.5702
+configure_requires:
+ ExtUtils::MakeMaker: 6.5702
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.113640'
+license: unknown
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Parse-RecDescent
+no_index:
+ directory:
+ - t
+ - inc
+requires:
+ Test::More: 0
+ Text::Balanced: 1.95
+version: 1.967013
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-RecDescent-1.967012/README
new/Parse-RecDescent-1.967013/README
--- old/Parse-RecDescent-1.967012/README 2015-09-13 17:01:10.000000000
+0200
+++ new/Parse-RecDescent-1.967013/README 2015-09-27 19:01:47.000000000
+0200
@@ -1,4 +1,4 @@
-Parse::RecDescent version 1.967012
+Parse::RecDescent version 1.967013
NAME
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-RecDescent-1.967012/lib/Parse/RecDescent.pm
new/Parse-RecDescent-1.967013/lib/Parse/RecDescent.pm
--- old/Parse-RecDescent-1.967012/lib/Parse/RecDescent.pm 2015-09-13
17:01:33.000000000 +0200
+++ new/Parse-RecDescent-1.967013/lib/Parse/RecDescent.pm 2015-09-27
19:28:03.000000000 +0200
@@ -195,10 +195,7 @@
print OUT "}\npackage $class; sub new { ";
print OUT "my ";
- require Data::Dumper;
- # Sort the keys to ensure the output is reproducible
- local $Data::Dumper::Sortkeys = 1;
- $code = Data::Dumper->Dump([$self], [qw(self)]);
+ $code = $self->_dump([$self], [qw(self)]);
$code =~ s/Parse::RecDescent/$opt{-runtime_class}/gs;
print OUT $code;
@@ -1950,7 +1947,7 @@
my $ERRORS = 0;
-our $VERSION = '1.967012';
+our $VERSION = '1.967013';
$VERSION = eval $VERSION;
$_FILENAME=__FILE__;
@@ -3103,10 +3100,9 @@
sub _code($)
{
my $self = shift;
- require Data::Dumper;
my $initial_skip = defined($self->{skip}) ?
'$skip = ' . $self->{skip} . ';' :
- Data::Dumper->Dump([$skip],[qw(skip)]);
+ $self->_dump([$skip],[qw(skip)]);
my $code = qq!
package $self->{namespace};
@@ -3153,6 +3149,57 @@
return $code;
}
+# A wrapper for Data::Dumper->Dump, which localizes some variables to
+# keep the output in a form suitable for Parse::RecDescent.
+#
+# List of variables and their defaults taken from
+# $Data::Dumper::VERSION == 2.158
+
+sub _dump {
+ require Data::Dumper;
+
+ #
+ # Allow the user's settings to persist for some features in case
+ # RD_TRACE is set. These shouldn't affect the eval()-ability of
+ # the resulting parser.
+ #
+
+ #local $Data::Dumper::Indent = 2;
+ #local $Data::Dumper::Useqq = 0;
+ #local $Data::Dumper::Quotekeys = 1;
+ #local $Data::Dumper::Useperl = 0;
+
+ #
+ # These may affect whether the output is valid perl code for
+ # eval(), and must be controlled. Set them to their default
+ # values.
+ #
+
+ local $Data::Dumper::Purity = 0;
+ local $Data::Dumper::Pad = "";
+ local $Data::Dumper::Varname = "VAR";
+ local $Data::Dumper::Terse = 0;
+ local $Data::Dumper::Freezer = "";
+ local $Data::Dumper::Toaster = "";
+ local $Data::Dumper::Deepcopy = 0;
+ local $Data::Dumper::Bless = "bless";
+ local $Data::Dumper::Maxdepth = 0;
+ local $Data::Dumper::Pair = ' => ';
+ local $Data::Dumper::Deparse = 0;
+ local $Data::Dumper::Sparseseen = 0;
+
+ #
+ # Modify the below options from their defaults.
+ #
+
+ # Sort the keys to ensure the output is reproducible
+ local $Data::Dumper::Sortkeys = 1;
+
+ # Don't stop recursing
+ local $Data::Dumper::Maxrecurse = 0;
+
+ return Data::Dumper->Dump(@_[1..$#_]);
+}
# EXECUTING A PARSE....
@@ -3486,8 +3533,8 @@
=head1 VERSION
-This document describes version 1.967012 of Parse::RecDescent
-released September 13th, 2015.
+This document describes version 1.967013 of Parse::RecDescent
+released September 27th, 2015.
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-RecDescent-1.967012/t/01.basics.t
new/Parse-RecDescent-1.967013/t/01.basics.t
--- old/Parse-RecDescent-1.967012/t/01.basics.t 2015-09-13 02:10:02.000000000
+0200
+++ new/Parse-RecDescent-1.967013/t/01.basics.t 2015-09-26 23:40:25.000000000
+0200
@@ -6,7 +6,7 @@
# Change 1..1 below to 1..last_test_to_print .
# (It may become useful if the test is moved to ./t subdirectory.)
-BEGIN { $| = 1; print "1..28\n"; }
+BEGIN { $| = 1; print "1..32\n"; }
END {print "not ok 1\n" unless $loaded;}
use Parse::RecDescent;
$loaded = 1;
@@ -271,3 +271,18 @@
ok($parser->whatever(" \\ "));
ok($parser->whatever(" whatever "));
+
+
+#################################################################
+# Check that changing some Data::Dumper variables don't break the
+# parsers
+foreach my $terse (0..1) {
+ local $Data::Dumper::Terse = $terse;
+ $parser = new Parse::RecDescent q{
+ startrule : string
+ string : "hello"
+};
+
+ ok ($parser) or exit;
+ ok($parser->startrule("hello"));
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Parse-RecDescent-1.967012/t/precompile.t
new/Parse-RecDescent-1.967013/t/precompile.t
--- old/Parse-RecDescent-1.967012/t/precompile.t 2015-09-13
02:44:06.000000000 +0200
+++ new/Parse-RecDescent-1.967013/t/precompile.t 2015-09-27
19:33:10.000000000 +0200
@@ -57,4 +57,3 @@
! five six seven)],
"correct result from precompiled parser");
}
-
