quick($ocean);
print "## updating topology of $ocean\n";
system('./yppedia-chart-parser',$ocean); die "$ocean $?" if $?;
+ print "\n";
}
sub quick ($) {
if ($v<2) {
next if $h =~ m/^nocommods/;
}
- next if $sfn =~ m/source-info/ && $h =~ m/^ocean/;
+ next if $sfn =~ m/source-info/ && $h =~ m/^ocean\b/;
+ next if $h =~ m/^client\b/;
print $df $_, "\n" or die $!;
}