package inc::Config;
use Config ();
use inc::Installer::Logger;
our $Config = tied %Config::Config;
my %BACKUP  = map { $_ => $Config::Config{$_} } keys %Config::Config;
$Config->{ 'Author'   } = 'Rutger Vos';
$Config->{ 'cf_by'    } = 'CIPRES <www.phylo.org>';
$Config->{ 'cf_email' } = 'rvosa@sfu.ca';
$Config->{ 'cf_time'  } = localtime;
sub diff {
    my %diff;
    for my $key ( sort { $a cmp $b } keys %{ $Config } ) {
        my $value = $Config->{$key};
        if ( $BACKUP{$key} ne $value ) {
            inc::Installer::Logger->debug(
                "Changed key '$key': old val '$BACKUP{$key}', new val '$value'"
            );
            $diff{$key} = $value;
        }
    }
    return %diff;
}
1;