use strict;
no utf8;
-use lib "__INSTALLDIR__/lib";
+use lib "/usr/local/BackupPC/lib";
use DBI;
use BackupPC::Lib;
use BackupPC::SearchLib;
$filename .= ".tar.gz";
$filename = $tar_dir . "/" . $filename;
- my $fs_size = stat($filename)[7];
+ my $fs_size = (stat($filename))[7];
$totalRemoved += $fs_size;
print "removing $filename... size: $fs_size\n";
# if (system("rm $filename") != 0) {