Permalink
Browse files

Fix naive refactoring bug in previous commit

  • Loading branch information...
1 parent a7d2b13 commit 3fb2dfe214f02a105a1be2120d21144201d1640b @japhb japhb committed Sep 5, 2012
Showing with 2 additions and 4 deletions.
  1. +2 −4 htmlify.pl
View
@@ -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}),

0 comments on commit 3fb2dfe

Please sign in to comment.