# XXX parse config file
-my %options = (quick => 1,
- quiet => 0,
+my %options = (quick => 0,
+ quiet => 1,
debug => 0,
help => 0,
man => 0,
);
-GetOptions(\%options,'debug|d+','help|h|?','man|m');
+GetOptions(\%options,'quick|Q!','quiet|q!','debug|d+','help|h|?','man|m');
pod2usage() if $options{help};
pod2usage({verbose=>2}) if $options{man};
for my $dir (map{"${HOME}/$_"} '',qw(.hide bin lib)) {
if (-e "$dir/.svn") {
- system('svn',$command,$dir);
+ system('svn',
+ $command,
+ $options{quiet}?'-q':(),
+ $options{quick}?('--ignore-externals','-N'):(),
+ $dir,
+ );
}
}