r55550 - in /branches/upstream/libparse-recdescent-perl/current: Changes META.yml README demo/demo_LaTeXish.pl demo/demo_LaTeXish_autoact.pl demo/demo_bad.pl demo/demo_calc.pl demo/demo_errors.pl demo/demo_simple.pl lib/Parse/RecDescent.pm t/pod.t

jawnsy-guest at users.alioth.debian.org jawnsy-guest at users.alioth.debian.org
Tue Apr 6 20:08:30 UTC 2010 

Author: jawnsy-guest
Date: Tue Apr  6 20:08:23 2010
New Revision: 55550

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55550
Log:
[svn-upgrade] Integrating new upstream version, libparse-recdescent-perl (1.965001+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/demo/demo_LaTeXish.pl
    branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish_autoact.pl
    branches/upstream/libparse-recdescent-perl/current/demo/demo_bad.pl
    branches/upstream/libparse-recdescent-perl/current/demo/demo_calc.pl
    branches/upstream/libparse-recdescent-perl/current/demo/demo_errors.pl
    branches/upstream/libparse-recdescent-perl/current/demo/demo_simple.pl
    branches/upstream/libparse-recdescent-perl/current/lib/Parse/RecDescent.pm
    branches/upstream/libparse-recdescent-perl/current/t/pod.t

Modified: branches/upstream/libparse-recdescent-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/Changes?rev=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/Changes (original)
+++ branches/upstream/libparse-recdescent-perl/current/Changes Tue Apr  6 20:08:23 2010
@@ -584,3 +584,19 @@
     - Fixed bug with undefined $1 when parsing literals (thanks Dan!)
 
     - Fixed premature namespace destruction bug with compiled grammars
+
+
+1.964001  Tue Feb 23 15:15:18 2010
+
+    - Updated version number because versioning is a neverending
+      nightmare in Perl 5 (thanks Matt)
+
+
+
+1.965001  Sun Apr  4 15:00:10 2010
+
+    - Removed all references to /opts version of perl interpreter
+
+    - Added Parse::RecDescent::redirect_reporting_to()
+      to enable ERROR, TRACE, and TRACECONTEXT filehandles to be 
+      easily redirected.

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=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/META.yml (original)
+++ branches/upstream/libparse-recdescent-perl/current/META.yml Tue Apr  6 20:08:23 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Parse-RecDescent
-version:             1.964
+version:             1.965001
 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=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/README (original)
+++ branches/upstream/libparse-recdescent-perl/current/README Tue Apr  6 20:08:23 2010
@@ -1,4 +1,4 @@
-Parse::RecDescent version 1.964
+Parse::RecDescent version 1.965001
 
 NAME
 

Modified: branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish.pl?rev=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish.pl (original)
+++ branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish.pl Tue Apr  6 20:08:23 2010
@@ -1,4 +1,3 @@
-#! /opt/local/bin/perl5.10.0
 use v5.10;
 use warnings;
 

Modified: branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish_autoact.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish_autoact.pl?rev=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish_autoact.pl (original)
+++ branches/upstream/libparse-recdescent-perl/current/demo/demo_LaTeXish_autoact.pl Tue Apr  6 20:08:23 2010
@@ -1,4 +1,3 @@
-#! /opt/local/bin/perl5.10.0
 
 
 use Parse::RecDescent;

Modified: branches/upstream/libparse-recdescent-perl/current/demo/demo_bad.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/demo/demo_bad.pl?rev=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/demo/demo_bad.pl (original)
+++ branches/upstream/libparse-recdescent-perl/current/demo/demo_bad.pl Tue Apr  6 20:08:23 2010
@@ -1,4 +1,3 @@
-#! /opt/local/bin/perl5.10.0
 use v5.10;
 use warnings;
 

Modified: branches/upstream/libparse-recdescent-perl/current/demo/demo_calc.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/demo/demo_calc.pl?rev=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/demo/demo_calc.pl (original)
+++ branches/upstream/libparse-recdescent-perl/current/demo/demo_calc.pl Tue Apr  6 20:08:23 2010
@@ -1,4 +1,3 @@
-#! /opt/local/bin/perl5.10.0
 use v5.10;
 use warnings;
 

Modified: branches/upstream/libparse-recdescent-perl/current/demo/demo_errors.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/demo/demo_errors.pl?rev=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/demo/demo_errors.pl (original)
+++ branches/upstream/libparse-recdescent-perl/current/demo/demo_errors.pl Tue Apr  6 20:08:23 2010
@@ -1,4 +1,3 @@
-#! /opt/local/bin/perl5.10.0
 use v5.10;
 use warnings;
 

Modified: branches/upstream/libparse-recdescent-perl/current/demo/demo_simple.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/demo/demo_simple.pl?rev=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/demo/demo_simple.pl (original)
+++ branches/upstream/libparse-recdescent-perl/current/demo/demo_simple.pl Tue Apr  6 20:08:23 2010
@@ -1,4 +1,3 @@
-#! /opt/local/bin/perl5.10.0
 use v5.10;
 use warnings;
 

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=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/lib/Parse/RecDescent.pm (original)
+++ branches/upstream/libparse-recdescent-perl/current/lib/Parse/RecDescent.pm Tue Apr  6 20:08:23 2010
@@ -1725,7 +1725,7 @@
 
 my $ERRORS = 0;
 
-our $VERSION = '1.964';
+our $VERSION = '1.965001';
 
 # BUILDING A PARSER
 
@@ -2928,6 +2928,24 @@
 use vars '$errortext';
 use vars '$errorprefix';
 
+sub redirect_reporting_to(*;$) {
+    my ($filehandle, $mode) = (@_, '>');
+
+    # Ensure filehandles duplicate...
+    $mode =~ s{ (?<! & ) $ }{&}xms;
+
+    open (ERROR, $mode, $filehandle) or return;
+    set_autoflush(\*ERROR);
+
+    open (TRACE, $mode, $filehandle) or return;
+    set_autoflush(\*TRACE);
+
+    open (TRACECONTEXT, $mode, $filehandle) or return;
+    set_autoflush(\*TRACECONTEXT);
+
+    return 1;
+}
+
 open (ERROR, ">&STDERR");
 format ERROR =
 @>>>>>>>>>>>>>>>>>>>>: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
@@ -3130,7 +3148,7 @@
 
 =head1 VERSION
 
-This document describes version 1.964 of Parse::RecDescent
+This document describes version 1.965001 of Parse::RecDescent
 released April  9, 2003.
 
 =head1 SYNOPSIS
@@ -4646,6 +4664,33 @@
 debugging features into a particular grammar (rather than having to set
 and reset external variables).
 
+=item Redirecting diagnostics
+
+The diagnostics provided by the tracing mechanism go to STDERR by default,
+but can be directed to a specific filehandle by calling the
+C<Parse::RecDescent::redirect_reporting_to()> subroutine (which must be fully
+qualified, as it is not exported).
+
+This subroutine expects either one or two arguments. The first is the
+filehandle you want all diagnostics redirected to. It must already be
+open for output, and may be specified as a typeglob, or as a reference
+to a filehandle:
+
+    Parse::RecDescent::redirect_reporting_to(*STDOUT);
+    Parse::RecDescent::redirect_reporting_to($fh);
+
+The optional second argument specifies the mode in which data is to be written
+to the handle. By default the "overwrite" mode ('>') is used, but you can
+explicitly pass '>>' to select "append" mode:
+
+    # Append reports to my log file...
+    Parse::RecDescent::redirect_reporting_to($my_log_file, '>>');
+
+The subroutine returns true if it successfully redirects all reporting
+streams, or false if it is not able to do so (typically because you gave
+it an invalid filehandle).
+
+
 =item Consistency checks
 
 Whenever a parser is build, Parse::RecDescent carries out a number of

Modified: branches/upstream/libparse-recdescent-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libparse-recdescent-perl/current/t/pod.t?rev=55550&op=diff
==============================================================================
--- branches/upstream/libparse-recdescent-perl/current/t/pod.t (original)
+++ branches/upstream/libparse-recdescent-perl/current/t/pod.t Tue Apr  6 20:08:23 2010
@@ -1,5 +1,3 @@
-#!perl -T
-
 use Test::More;
 eval "use Test::Pod 1.14";
 plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;

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