Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix pod

  • Loading branch information...
commit fe675c9cc5c64f0e217d3e77241c4407435f2dc5 1 parent ff98fd1
@moritz moritz authored
Showing with 7 additions and 7 deletions.
  1. +5 −5 src/Perl6/Actions.pm
  2. +2 −2 src/Perl6/Pod.pm
View
10 src/Perl6/Actions.pm
@@ -1431,7 +1431,7 @@ class Perl6::Actions is HLL::Actions {
}
# Document
- Perl6::Pod::document($*PACKAGE, $*DOC);
+ Perl6::Pod::document($/, $*PACKAGE, $*DOC);
make QAST::Stmts.new(
$block, QAST::WVal.new( :value($*PACKAGE) )
@@ -1586,7 +1586,7 @@ class Perl6::Actions is HLL::Actions {
%cont_info, $descriptor);
# Document it
- # Perl6::Pod::document($attr, $*DOC); #XXX var traits NYI
+ # Perl6::Pod::document($/, $attr, $*DOC); #XXX var traits NYI
# If no twigil, note $foo is an alias to $!foo.
if $twigil eq '' {
@@ -1762,7 +1762,7 @@ class Perl6::Actions is HLL::Actions {
$*W.finish_code_object($code, $block, $*MULTINESS eq 'proto', :yada(is_yada($/)));
# Document it
- Perl6::Pod::document($code, $*DOC);
+ Perl6::Pod::document($/, $code, $*DOC);
# Install PAST block so that it gets capture_lex'd correctly and also
# install it in the lexpad.
@@ -2008,7 +2008,7 @@ class Perl6::Actions is HLL::Actions {
my $code := methodize_block($/, $*DECLARAND, $past, %sig_info, $inv_type, :yada(is_yada($/)));
# Document it
- Perl6::Pod::document($code, $*DOC);
+ Perl6::Pod::document($/, $code, $*DOC);
# Install &?ROUTINE.
$*W.install_lexical_symbol($past, '&?ROUTINE', $code);
@@ -2079,7 +2079,7 @@ class Perl6::Actions is HLL::Actions {
$*MULTINESS eq 'proto');
# Document it
- Perl6::Pod::document($code, $*DOC);
+ Perl6::Pod::document($/, $code, $*DOC);
# Install PAST block so that it gets capture_lex'd correctly and also
# install it in the lexpad.
View
4 src/Perl6/Pod.pm
@@ -1,8 +1,8 @@
# various helper methods for Pod parsing and processing
class Perl6::Pod {
- our sub document($what, $with) {
+ our sub document($/, $what, $with) {
if ~$with ne '' {
- $*W.apply_trait('&trait_mod:<is>', $what, :docs($*DOCEE));
+ $*W.apply_trait($/, '&trait_mod:<is>', $what, :docs($*DOCEE));
# don't reset it if it already holds docs for another element
if $*DECLARATOR_DOCS && $*DOC.to == $*DECLARATOR_DOCS.to {
$*DECLARATOR_DOCS := '';

0 comments on commit fe675c9

Please sign in to comment.
Something went wrong with that request. Please try again.