Fix naive refactoring bug in previous commit

Geoffrey Broadwell · Geoffrey Broadwell · commit 3fb2dfe214f0 · 2012-09-04T17:18:45.000-07:00
diff --git a/htmlify.pl b/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}),

Original file line number	Diff line number	Diff line change
`@@ -118,7 +118,8 @@ (Bool :$debug, Bool :$typegraph = False)`
`118`	`118`	`write-language-file(:$dr, :$what, :$pod, :$podname);`
`119`	`119`	`}`
`120`	`120`	`else {`
`121`		`- write-type-file(:$dr, :$what, :$pod, :$podname);`
	`121`	`+ say pod-gist($pod[0]) if $*DEBUG;`
	`122`	`+ write-type-file(:$dr, :$what, :pod($pod[0]), :$podname);`
`122`	`123`	`}`
`123`	`124`	`}`
`124`	`125`
`@@ -174,9 +175,6 @@ (Bool :$debug, Bool :$typegraph = False)`
`174`	`175`	`}`
`175`	`176`
`176`	`177`	`sub write-type-file(:$dr, :$what, :$pod, :$podname) {`
`177`		`- $pod = $pod[0];`
`178`		`- say pod-gist($pod) if $*DEBUG;`
`179`		`-`
`180`	`178`	`my @chunks = chunks-grep($pod.content,`
`181`	`179`	`:from({ $_ ~~ Pod::Heading and .level == 2}),`
`182`	`180`	`:to({ $^b ~~ Pod::Heading and $^b.level <= $^a.level}),`