ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

btrbk: action "diff": print total size

pull/73/head
Axel Burri 2016-03-01 21:29:19 +01:00
parent a1124053a7
commit 6c9643f2be
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
btrbk
View File

@ -2515,6 +2515,7 @@ MAIN:
my $files = $ret->{files}; my $files = $ret->{files};
# calculate the character offsets # calculate the character offsets
my $total_len = 0;
my $len_charlen = 0; my $len_charlen = 0;
my $gen_charlen = 0; my $gen_charlen = 0;
foreach (values %$files) { foreach (values %$files) {
@ -2522,6 +2523,7 @@ MAIN:
my $gen = length(scalar(keys(%{$_->{gen}}))); my $gen = length(scalar(keys(%{$_->{gen}})));
$len_charlen = $len if($len > $len_charlen); $len_charlen = $len if($len > $len_charlen);
$gen_charlen = $gen if($gen > $gen_charlen); $gen_charlen = $gen if($gen > $gen_charlen);
$total_len += $_->{len};
} }
# finally print the output # finally print the output
@ -2538,7 +2540,7 @@ MAIN:
print " $name\n"; print " $name\n";
} }
print "\nTotal size: $total_len bytes\n";
exit 0; exit 0;
} }