* default to .todo if TODODB not set

diff --git a/stodo b/stodo
index 7a3c87c7bbbb50e8facbaf621b849d87237dcd22..48acf4f16a0c332f0c59d80fcdfa17f7fb3fa672 100755 (executable)
--- a/stodo
+++ b/stodo
@@ -105,7 +105,7 @@ pod2usage({verbose=>2}) if $options{man};
 $DEBUG = $options{debug};
 
 # Figure out what we're doing
-my $tododb = $ENV{TODODB};
+my $tododb = exists $ENV{TODODB} ? $ENV{TODODB} : '.todo';
 if ($tododb !~ m#^/#) {
      $tododb = cwd().'/'.$tododb;
 }