Make work with PPI 1.204

doy · Jul 30, 2009 · 29235db · 29235db
1 parent bed9789
commit 29235db
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/Parse/Method/Signatures.pm b/lib/Parse/Method/Signatures.pm
@@ -706,8 +706,9 @@ sub bracketed {
     $self->error($self->ppi)
       if $self->ppi != $ppi->finish;
 
-    # Hmm we seem to have to call a private method. sucky
-    $list->_set_finish($self->consume_token->clone);
+    # There is no public way to do this as of PPI 1.204_06. I'll add one to the
+    # next release, 1.205 (or so)
+    $list->{finish} = $self->consume_token->clone;
   } else {
     # Just clone the entire [] or {}
     $ret = $ppi->clone;