small cleanups

git-svn-id: https://svn.helsinki.at/rhimport/trunk@42 7c65635b-ec39-4f67-a626-873dbafdd612

1 files changed, 1 insertions, 2 deletions

diff --git a/rhimport.pm b/rhimport.pm
index d33640d..48b5b17 100644
--- a/rhimport.pm
+++ b/rhimport.pm
@@ -118,7 +118,6 @@ sub clear_carts
     my $sth = $dbh->prepare($sql);
     $sth->execute();
     while(my $cut_name = $sth->fetchrow_array()) {
-##    TODO:  Error handling would be nice!
       delete_file("/var/snd/$cut_name.wav");
     }
     $sth->finish();
@@ -162,7 +161,7 @@ sub import_playlist
 
     my $out;
     ($ret, $out) = import_file($entry, $dropbox, $error_cb);
-    $log .= "\n--- $entry ---\n$out\n";
+    $log .= "\n--- $entry ---\n$out\n" if $out;
     last if($ret == 0);
 
     $cnt++;