#!/usr/bin/perl

#Locale settings:
no warnings 'layer';
use utf8;
use locale;
use encoding 'utf8', STDOUT => 'utf8', STDERR => 'utf8';
use POSIX qw(locale_h);
setlocale(LC_TYPE, 'ru_RU.UTF-8');
use Encode;

#The test code
require 'fdupes-gui_chmk-dupes.txt.cache';

my $imported_vars = import_vars();

print "---test_before---\n";
for my $cvar (keys %$imported_vars){
	print "$cvar:\n";
	for my $ckey (keys %{$imported_vars->{$cvar}}){
		print "\t$cvar: $ckey\n";
	}
}
print "---after_test---\n";