@@ -58,39 +58,29 @@ sub do-update () {
58
58
59
59
# FIRST
60
60
# write the auto-generated pod6 files used for the Language page
61
+ = begin comment
62
+ # visit later
61
63
write-Language-files();
64
+ = end comment
62
65
63
66
# THEN
64
67
# copy all under the doc dir to the build dir
65
68
# NOTE this assumes the sort order is alpha by file name
66
69
# NOTE we exclude the Language dir
70
+ = begin comment
71
+ # visit later
67
72
copy-dir-tree(:fromdir('doc'), :todir('build'), :exclude('Language'));
73
+ = end comment
74
+ copy-dir-tree : fromdir(' doc' ), : todir(' build' );
68
75
}
69
76
70
- = begin comment
71
- sub copy-other-dirs-and-files(*@doc-subdirs) {
72
- # The arguments are subdir names under 'doc' and
73
- # the complete subdir trees are to be copied as
74
- # subdir trees under 'build'.
75
-
76
- for @doc-subdirs -> $sdir {
77
- say "DEBUG: working subdir tree '$sdir'" if $debug;
78
-
79
- # recursively copy tree to another tree
80
- my $fromdir = "doc/$sdir"; # complete path
81
- my $todir = "build/$sdir";
82
- copy-dir-tree(:$fromdir, :$todir, :$exclude);
83
- }
84
- }
85
- = end comment
86
-
87
77
sub copy-dir-tree (: $ fromdir , : $ todir , : $ exclude ) {
88
78
# recursively copy tree to another tree
89
79
return if ! $ fromdir . IO . d ;
90
80
91
81
say " DEBUG: \$fromdir: '$ fromdir ', \$exclude: '$ exclude '" if $ debug ;
92
82
# skip some dirs, e.g., Language
93
- return if $ fromdir ~~ /$ exclude /;
83
+ return if $ exclude && $ fromdir ~~ /$ exclude /;
94
84
95
85
# create the target dir if need be
96
86
mkdir $ todir if ! $ todir . IO . d ;
0 commit comments