Bug#641796: libx500-dn-perl: X500::DN triggers warning in Parse::RecDescent

[Damyan Ivanov]

-=| John Hughes, 16.09.2011 11:55:48 +0200 |=-
> Package: libx500-dn-perl
> Version: 0.29-4
> Severity: normal
> 
> $ perl -we 'use X500::DN'
> Use of uninitialized value $Parse::RecDescent::skip in concatenation (.) or string at /usr/share/perl5/Parse/RecDescent.pm line 2811.
> 
> Don't know whether the bug is in Parse::RecDescent or X500::DN.
> 
> Suse bug 653512 might have something to do with this.
> https://bugzilla.novell.com/show_bug.cgi?id=653512

It seems to me that X500::DN does this by itself:

    DN.pm:46:local $Parse::RecDescent::skip = undef;

From Parse::RecDescent(3pm):

    The variable $Parse::RecDescent::skip stores the universal prefix, 
    which is the default for all terminal matches in all parsers built 
    with "Parse::RecDescent".

    The prefix for an individual production can be altered by using 
    the "<skip:...>" directive (see below).

Using '' (the empty string) instead of undef on line 46 of DN.pm seems 
to silence the warning and the test suite still passes.

I'll report this upstream (latest release in 2007, though).
-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 836 bytes
Desc: Digital signature
URL: <http://lists.alioth.debian.org/pipermail/pkg-perl-maintainers/attachments/20110916/ab29b0b5/attachment.pgp>