r37878 - in /branches/upstream/libpod-abstract-perl/current: ./ lib/Pod/ lib/Pod/Abstract/ lib/Pod/Abstract/Filter/
nhandler-guest at users.alioth.debian.org
nhandler-guest at users.alioth.debian.org
Mon Jun 8 20:35:52 UTC 2009
Author: nhandler-guest
Date: Mon Jun 8 20:35:47 2009
New Revision: 37878
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=37878
Log:
[svn-upgrade] Integrating new upstream version, libpod-abstract-perl (0.18)
Modified:
branches/upstream/libpod-abstract-perl/current/Changes
branches/upstream/libpod-abstract-perl/current/META.yml
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/BuildNode.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/add_podcmds.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/clear_podcmds.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/cut.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/find.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/number_sections.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/overlay.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/sort.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/summary.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/uncut.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/unoverlay.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Node.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Parser.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Path.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Serial.pm
branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Tree.pm
Modified: branches/upstream/libpod-abstract-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/Changes?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/Changes (original)
+++ branches/upstream/libpod-abstract-perl/current/Changes Mon Jun 8 20:35:47 2009
@@ -1,4 +1,10 @@
Revision history for Pod-Abstract
+
+0.18 08/06/2009
+ Replaced "=" operator with "eq", added the full set of Perl
+ compatible binary comparison operators (eq and friends, == and
+ friends). This will break your code if you used the "=" operator
+ in 0.17, you will need to change it to "eq".
0.17 26/05/2009
Added Union and Intersection operators to paths (conjunction of
Modified: branches/upstream/libpod-abstract-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/META.yml?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/META.yml (original)
+++ branches/upstream/libpod-abstract-perl/current/META.yml Mon Jun 8 20:35:47 2009
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Pod-Abstract
-version: 0.17
+version: 0.18
version_from: lib/Pod/Abstract.pm
installdirs: site
requires:
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract.pm Mon Jun 8 20:35:47 2009
@@ -7,7 +7,7 @@
use Pod::Abstract::Parser;
use IO::String;
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/BuildNode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/BuildNode.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/BuildNode.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/BuildNode.pm Mon Jun 8 20:35:47 2009
@@ -7,7 +7,7 @@
use Pod::Abstract::Node;
use base qw(Exporter);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
our @EXPORT_OK = qw(node nodes);
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter.pm Mon Jun 8 20:35:47 2009
@@ -5,7 +5,7 @@
use Pod::Abstract;
use UNIVERSAL qw(isa);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/add_podcmds.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/add_podcmds.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/add_podcmds.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/add_podcmds.pm Mon Jun 8 20:35:47 2009
@@ -4,7 +4,7 @@
use base qw(Pod::Abstract::Filter);
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 METHODS
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/clear_podcmds.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/clear_podcmds.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/clear_podcmds.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/clear_podcmds.pm Mon Jun 8 20:35:47 2009
@@ -3,7 +3,7 @@
use base qw(Pod::Abstract::Filter);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
sub filter {
my $self = shift;
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/cut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/cut.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/cut.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/cut.pm Mon Jun 8 20:35:47 2009
@@ -4,7 +4,7 @@
use base qw(Pod::Abstract::Filter);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
sub filter {
my $self = shift;
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/find.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/find.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/find.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/find.pm Mon Jun 8 20:35:47 2009
@@ -5,7 +5,7 @@
use base qw(Pod::Abstract::Filter);
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/number_sections.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/number_sections.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/number_sections.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/number_sections.pm Mon Jun 8 20:35:47 2009
@@ -5,7 +5,7 @@
use base qw( Pod::Abstract::Filter );
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/overlay.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/overlay.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/overlay.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/overlay.pm Mon Jun 8 20:35:47 2009
@@ -6,7 +6,7 @@
use Pod::Abstract;
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=begin :overlay
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/sort.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/sort.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/sort.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/sort.pm Mon Jun 8 20:35:47 2009
@@ -6,7 +6,7 @@
use base qw(Pod::Abstract::Filter);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
sub filter {
my $self = shift;
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/summary.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/summary.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/summary.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/summary.pm Mon Jun 8 20:35:47 2009
@@ -4,7 +4,7 @@
use base qw(Pod::Abstract::Filter);
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/uncut.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/uncut.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/uncut.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/uncut.pm Mon Jun 8 20:35:47 2009
@@ -5,7 +5,7 @@
use base qw(Pod::Abstract::Filter);
use Pod::Abstract::BuildNode qw(node);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/unoverlay.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/unoverlay.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/unoverlay.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Filter/unoverlay.pm Mon Jun 8 20:35:47 2009
@@ -4,7 +4,7 @@
use base qw(Pod::Abstract::Filter);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=begin :overlay
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Node.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Node.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Node.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Node.pm Mon Jun 8 20:35:47 2009
@@ -7,7 +7,7 @@
use Scalar::Util qw(weaken);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Parser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Parser.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Parser.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Parser.pm Mon Jun 8 20:35:47 2009
@@ -6,7 +6,7 @@
use Data::Dumper;
use base qw(Pod::Parser);
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 new
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Path.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Path.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Path.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Path.pm Mon Jun 8 20:35:47 2009
@@ -5,10 +5,11 @@
use Data::Dumper;
use UNIVERSAL qw(isa can);
+use Pod::Abstract::BuildNode qw(node);
$Data::Dumper::Indent = 1;
-our $VERSION = '0.17';
+our $VERSION = '0.18';
use constant CHILDREN => 1; # /
use constant ALL => 2; # //
@@ -16,14 +17,10 @@
use constant INDEX => 4; # (3)
use constant L_SELECT => 5; # [
use constant ATTR => 6; # @label
-use constant EQUAL => 7; # =
+use constant N_CMP => 7; # == != < <= > >=
use constant STRING => 8; # 'foobar'
use constant R_SELECT => 9; # ]
-use constant NOT_EQ => 10; # <>
-use constant LESS_THAN => 11; # <
-use constant LESS_EQ => 12; # <=
-use constant GT_THAN => 13; # >
-use constant GT_EQ => 14; # >=
+use constant NUM_OF => 10; # #
use constant NOT => 15; # !
use constant PARENT => 16; # ..
use constant MATCHES => 17; # =~
@@ -34,6 +31,7 @@
use constant ROOT => 22; # ^
use constant UNION => 23; # |
use constant INTERSECT => 24; # &
+use constant S_CMP => 25; # eq lt gt le ge ne
=pod
@@ -163,14 +161,20 @@
Reverses the remainder of the expression. The above example will match
anything B<without> a child head2 node.
-=item equality: C<[ /node1 = /node2 ]>
-
-Matches nodes that have at least one equality match. The right hand
-expression can be a constant string (single quoted: C<'string'>, or a
-second expression. If two expressions are used, they are matched
-combinationally - i.e, all result nodes on the left are matched
-against all result nodes on the right. Both sides may contain nested
-expressions.
+=item compare operators: eg. C<[ /node1 eq /node2 ]>
+
+Matches nodes where the operator is satistied for at least one pair of
+nodes. The right hand expression can be a constant string (single
+quoted: C<'string'>, or a second expression. If two expressions are
+used, they are matched combinationally - i.e, all result nodes on the
+left are matched against all result nodes on the right. Both sides may
+contain nested expressions.
+
+The following Perl compatible operators are supported:
+
+String: C< eq gt lt le ge ne >
+
+Numeric: C<<< == < > <= >= != >>>
=back
@@ -248,6 +252,9 @@
} elsif($expression =~ m/^\]/) {
substr($expression,0,1) = '';
push @l, [ R_SELECT, undef ];
+ } elsif($expression =~ m/^(eq|lt|gt|le|ge|ne)/) {
+ push @l, [ S_CMP, $1 ];
+ substr($expression,0,2) = '';
} elsif($expression =~ m/^([#_\:a-zA-Z0-9]+)/) {
push @l, [ NAME, $1 ];
substr($expression, 0, length $1) = '';
@@ -276,22 +283,28 @@
} elsif($expression =~ m/^\./) {
push @l, [ NOP, undef ];
substr($expression, 0, 1) = '';
- } elsif($expression =~ m/^\!/) {
- push @l, [ NOT, undef ];
- substr($expression, 0, 1) = '';
} elsif($expression =~ m/^\<\</) {
push @l, [ PREV, undef ];
substr($expression, 0, 2) = '';
} elsif($expression =~ m/^\>\>/) {
push @l, [ NEXT, undef ];
substr($expression, 0, 2) = '';
- } elsif($expression =~ m/^=/) {
- push @l, [ EQUAL, undef ];
+ } elsif($expression =~ m/^(==|!=|<=|>=)/) {
+ push @l, [ N_CMP, $1 ];
+ substr($expression,0,2) = '';
+ } elsif($expression =~ m/^(<|>)/) {
+ push @l, [ N_CMP, $1 ];
+ substr($expression,0,1) = '';
+ } elsif($expression =~ m/^\!/) {
+ push @l, [ NOT, undef ];
+ substr($expression, 0, 1) = '';
+ } elsif($expression =~ m/^\%/) {
+ push @l, [ NUM_OF, undef ];
substr($expression, 0, 1) = '';
} elsif($expression =~ m/^'([\^']*)'/) {
push @l, [ STRING, $1 ];
substr($expression, 0, length( $1 ) + 2) = '';
- } elsif($expression =~ m/([ \n\t]+)/) {
+ } elsif($expression =~ m/(\s+)/) {
# Discard uncaptured whitespace
substr($expression, 0, length($1)) = '';
} else {
@@ -447,6 +460,8 @@
my $invert = shift;
my $exp = shift;
my $r_exp = shift;
+
+ my $op = shift; # Only for some operators
my $nlist = [ ];
foreach my $n(@$ilist) {
@@ -456,9 +471,9 @@
# node lists if required.
if(can($r_exp, 'process')) {
my @r_list = $r_exp->process($n);
- $t_result = $self->$test_action(\@t_list, \@r_list);
+ $t_result = $self->$test_action(\@t_list, \@r_list, $op);
} else {
- $t_result = $self->$test_action(\@t_list, $r_exp);
+ $t_result = $self->$test_action(\@t_list, $r_exp, $op);
}
$t_result = !$t_result if $invert;
if($t_result) {
@@ -468,10 +483,11 @@
return $nlist;
}
-sub test_equal {
+sub test_cmp_op {
my $self = shift;
my $l_list = shift;
my $r_exp = shift;
+ my $op = shift;
if(scalar(@$r_exp) == 0 || isa($r_exp->[0],'Pod::Abstract::Node')) {
# combination test
@@ -482,7 +498,8 @@
foreach my $r (@$r_exp) {
my $rb = $r->body;
$rb = $r->pod unless $rb;
- $match ++ if $lb eq $rb;
+ eval "\$match++ if \$lb $op \$rb";
+ die $@ if $@;
}
}
return $match;
@@ -493,7 +510,8 @@
foreach my $l (@$l_list) {
my $lb = $l->body;
$lb = $l->pod unless $lb;
- $match ++ if $lb eq $str;
+ eval "\$match++ if \$lb $op \$str";
+ die $@ if $@;
}
return $match;
} else {
@@ -683,7 +701,7 @@
'action' => 'end_select',
};
} elsif(grep { $tok == $_ }
- (MATCHES, R_SELECT, EQUAL, UNION, INTERSECT)) {
+ (MATCHES, R_SELECT, S_CMP, N_CMP, UNION, INTERSECT)) {
unshift @$l, $next;
return {
'action' => 'end_select',
@@ -796,6 +814,7 @@
$l_exp = $class->new("select expression",$l_exp);
my $op = shift @$l;
my $op_tok = $op->[0];
+ my $op_val = $op->[1];
my $exp = undef;
if($op_tok == MATCHES) {
@@ -814,7 +833,7 @@
} else {
die "Expected REGEXP, got ", Dumper([$re_tok]);
}
- } elsif($op_tok == EQUAL) {
+ } elsif($op_tok == S_CMP || $op_tok == N_CMP) {
my $rh = shift @$l;
my $rh_tok = $rh->[0];
my $r_exp = undef;
@@ -828,8 +847,8 @@
}
$exp = {
action => 'match_expression',
- arguments => [ 'test_equal', 0,
- $l_exp, $r_exp ],
+ arguments => [ 'test_cmp_op', 0,
+ $l_exp, $r_exp, $op_val ],
};
} elsif($op_tok == R_SELECT) {
# simple expression
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Serial.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Serial.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Serial.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Serial.pm Mon Jun 8 20:35:47 2009
@@ -1,6 +1,6 @@
package Pod::Abstract::Serial;
use strict;
-our $VERSION = '0.17';
+our $VERSION = '0.18';
my $serial_number = 0;
Modified: branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Tree.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Tree.pm?rev=37878&op=diff
==============================================================================
--- branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Tree.pm (original)
+++ branches/upstream/libpod-abstract-perl/current/lib/Pod/Abstract/Tree.pm Mon Jun 8 20:35:47 2009
@@ -1,7 +1,7 @@
package Pod::Abstract::Tree;
use strict;
-our $VERSION = '0.17';
+our $VERSION = '0.18';
=head1 NAME
More information about the Pkg-perl-cvs-commits
mailing list