tweaked error messages

[id3fs.git] / bin / id3fs-index

diff --git a/bin/id3fs-index b/bin/id3fs-index
index 93a6ebf..cff0990 100755 (executable)
--- a/bin/id3fs-index
+++ b/bin/id3fs-index
@@ -54,14 +54,14 @@ else
     {
        if(Cwd::abs_path($path) !~ /^$abs_base/)
        {
-           print "$me, $path is outside $base, skipping\n";
+           print "$me: $path is outside $base, skipping\n";
        }
        File::Find::find( {wanted => \&wanted, follow => 1, no_chdir => 1}, $path);
     }
     my $directories_pruned=$db->prune_directories();
     if($files_pruned || $directories_pruned)
     {
-       print "Removing data from pruned files\n" if $verbose;
+       print "$me: removing data from pruned files\n" if $verbose;
        $db->remove_unused();
     }
 }
@@ -87,7 +87,6 @@ sub prune
 {
     my $dir=shift;
     return unless(opendir(DIR, $dir));
-    print "Pruning $dir\n";
     my @oldfiles=$db->files_in($dir);
     my @newfiles=grep { !/^\.\.?$/; } readdir(DIR);
     closedir(DIR);