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

Package:
libx500-dn-perl
Source:
libx500-dn-perl
Submitter:
John Hughes
Date:
2011-09-16 11:42:22 UTC
Severity:
normal
#641796#5
Date:
2011-09-16 09:55:48 UTC
From:
To:
$ 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
#641796#8
Date:
2011-09-16 10:31:18 UTC
From:
To:
-=| John Hughes, 16.09.2011 11:55:48 +0200 |=-

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).
#641796#13
Date:
2011-09-16 11:18:44 UTC
From:
To:
Ew.
Thanks.