* tweak stodo output more

diff --git a/stodo b/stodo
index 9534404b6f657caa71bf5a30d838e0413da91723..2c4f6de61c353ac6e107e2c362e9fcea4045432b 100755 (executable)
--- a/stodo
+++ b/stodo
@@ -110,19 +110,20 @@ if ($tododb !~ m#^/#) {
      $tododb = cwd().'/'.$tododb;
 }
 if (not -r $tododb) {
-     "$tododb does not exist or is not readable";
+     print STDERR "Todo DB '$tododb' does not exist or is not readable\n";
+     exit 1;
 }
 $tododb = full_readlink($tododb);
 my $base_dir = dirname($tododb);
 my $tododb_name = basename($tododb);
 
 if (not -e "$base_dir/.svn") {
-     print "$base_dir/.svn doesn't exist, not commiting\n" unless $options{quiet};
+     print STDERR "$base_dir/.svn doesn't exist, not commiting\n" unless $options{quiet};
      exit 0;
 }
 
 if (not -e "$base_dir/.svn/text-base/${tododb_name}.svn-base") {
-     print "$base_dir/.svn/text-base/${tododb_name}.svn-base doesn't exist, not committing\n" unless $options{quiet};
+     print STDERR "$base_dir/.svn/text-base/${tododb_name}.svn-base doesn't exist, not committing\n" unless $options{quiet};
      exit 0;
 }
 
@@ -139,7 +140,7 @@ while (<$svn_entries_fh>) {
      last;
 }
 if ($ENV{STODO_NO_COMMIT}) {
-     print "Exiting because of STODO_NO_COMMIT env variable\n" unless $options{quiet};
+     print STDERR "Exiting because of STODO_NO_COMMIT env variable\n" unless $options{quiet};
      exit 0;
 }
 if (not defined $svn_host and (not defined $url_type or $url_type ne 'file')) {