diff options
author | David Prévot <taffit-guest> | 2011-05-03 18:39:46 +0000 |
---|---|---|
committer | David Prévot <taffit-guest> | 2011-05-03 18:39:46 +0000 |
commit | dbde8d47ee9bd3a0012be51d88c2bfc5790852e4 (patch) | |
tree | bedf6fae01de419fff78940096c1e0f2ba79bfbc /Perl/Local | |
parent | 3ca019a805ad586ffc1b4471d3c1d4f514410023 (diff) |
Add a quiet option for non existing files
CVS version numbers
remove_stale.pl: 1.20 -> 1.21
Perl/Local/VCS_CVS.pm: 1.11 -> 1.12
Diffstat (limited to 'Perl/Local')
-rw-r--r-- | Perl/Local/VCS_CVS.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Perl/Local/VCS_CVS.pm b/Perl/Local/VCS_CVS.pm index c41a6866588..e5b53d65507 100644 --- a/Perl/Local/VCS_CVS.pm +++ b/Perl/Local/VCS_CVS.pm @@ -267,6 +267,9 @@ Example use: sub vcs_file_info { my $file = shift or carp("No file specified"); + my %options = @_; + + my $quiet = $options{quiet} || undef; my ($basename,$dirname) = fileparse( rel2abs $file ); @@ -275,7 +278,7 @@ sub vcs_file_info if ( not ( exists $info{$basename} and $info{$basename} ) ) { - carp("No info found about `$file' (does the file exist?)"); + carp("No info found about `$file' (does the file exist?)") if ( ! $quiet ); return; } |