diff options
author | Joey Hess <joey@kitenet.net> | 2010-06-25 00:30:12 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-06-25 00:30:12 -0400 |
commit | 1f6ea9a626d9983ce84343e6a73604d58aa1df09 (patch) | |
tree | a6e35f463b10fdb258fa56898bb54579185e1133 /t/cvs.t | |
parent | d8d057c356e0244585aa0eac075b39958c6c3f37 (diff) | |
download | ikiwiki-1f6ea9a626d9983ce84343e6a73604d58aa1df09.tar ikiwiki-1f6ea9a626d9983ce84343e6a73604d58aa1df09.tar.gz |
clean up messages about unavailable vcs programs
Diffstat (limited to 't/cvs.t')
-rwxr-xr-x | t/cvs.t | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -8,11 +8,14 @@ BEGIN { chomp $cvs; my $cvsps=`which cvsps`; chomp $cvsps; - if (! -x $cvs || ! -x $cvsps || ! mkdir($dir)) { + if (! -x $cvs || ! -x $cvsps) { eval q{ - use Test::More skip_all => "cvs or cvsps not available or could not make test dir" + use Test::More skip_all => "cvs or cvsps not available" } } + if (! mkdir($dir)) { + die $@; + } foreach my $module ('File::ReadBackwards', 'File::MimeInfo') { eval qq{use $module}; if ($@) { |