generate: use oraw in a few more places

This gets rid of some open-coded `print O'.

No functional change.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/generate b/generate
index a6a6cda90c6b1e032dabf49797086c0280789a41..4014471a43019cec4e683d1d3ab60e4b82e6edc8 100755 (executable)
--- a/generate
+++ b/generate
@@ -384,16 +384,16 @@ sub process_subtree ($$) {
     my @targets = sort keys %targets;
     foreach my $target (@targets) {
        my $target_varname = target_varname($var_prefix, $target);
     my @targets = sort keys %targets;
     foreach my $target (@targets) {
        my $target_varname = target_varname($var_prefix, $target);

-       print O "${dir_prefix}${target}:: \$($target_varname)";
+       oraw "${dir_prefix}${target}:: \$($target_varname)";

        foreach my $child_subdir (@{ $targets{$target} }) {
        foreach my $child_subdir (@{ $targets{$target} }) {

-           print O " $child_subdir/$target";
+           oraw " $child_subdir/$target";

        }
        }

-       print O "\n";
+       oraw "\n";

     }
     if (@targets) {
     }
     if (@targets) {

-       print O ".PHONY:";
-       print O " ${dir_prefix}${_}" foreach @targets;
-       print O "\n";
+       oraw ".PHONY:";
+       oraw " ${dir_prefix}${_}" foreach @targets;
+       oraw "\n";

     }
 
     return @targets;
     }
 
     return @targets;