Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Use $/.from ~ ",' ~ $/.to as a POD block id when adding them to $=POD
The previous approach didn't work for two identical POD blocks existing
in the document, and caused a failure in t/pod/07-tables.t
  • Loading branch information
Tadeusz Sośnierz committed Aug 3, 2011
1 parent 6834ff0 commit 967ab7a
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/Perl6/Actions.pm
Expand Up @@ -229,7 +229,7 @@ class Perl6::Actions is HLL::Actions {
my $child := $<pod_block>.ast;
# make sure we don't push the same thing twice
if $child {
my $id := nqp::where($child);
my $id := $/.from ~ "," ~ ~$/.to;
if !$*POD_BLOCKS_SEEN{$id} {
$*POD_BLOCKS.push($child);
$*POD_BLOCKS_SEEN{$id} := 1;
Expand Down

0 comments on commit 967ab7a

Please sign in to comment.