+ #
+ # Default the level and version fields if not present
+ #
+ for ( my $i = 0 ; $i < @Backups ; $i++ ) {
+ if ( defined($Backups[$i]{level}) ) {
+ if ( !defined($Backups[$i]{version}) ) {
+ $Backups[$i]{version} = "3.0.0";
+ }
+ } else {
+ $Backups[$i]{level} = $Backups[$i]{type} eq "incr" ? 1 : 0;
+ $Backups[$i]{version} = "2.1.2";
+ }
+ }