Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Fix naive refactoring bug in previous commit

  • Loading branch information...
commit 3fb2dfe214f02a105a1be2120d21144201d1640b 1 parent a7d2b13
@japhb japhb authored
Showing with 2 additions and 4 deletions.
  1. +2 −4 htmlify.pl
View
6 htmlify.pl
@@ -118,7 +118,8 @@ (Bool :$debug, Bool :$typegraph = False)
write-language-file(:$dr, :$what, :$pod, :$podname);
}
else {
- write-type-file(:$dr, :$what, :$pod, :$podname);
+ say pod-gist($pod[0]) if $*DEBUG;
+ write-type-file(:$dr, :$what, :pod($pod[0]), :$podname);
}
}
@@ -174,9 +175,6 @@ (Bool :$debug, Bool :$typegraph = False)
}
sub write-type-file(:$dr, :$what, :$pod, :$podname) {
- $pod = $pod[0];
- say pod-gist($pod) if $*DEBUG;
-
my @chunks = chunks-grep($pod.content,
:from({ $_ ~~ Pod::Heading and .level == 2}),
:to({ $^b ~~ Pod::Heading and $^b.level <= $^a.level}),
Please sign in to comment.
Something went wrong with that request. Please try again.