1 diff -uNr mbank-cli-20120215/mbank-cli mbank-cli-20120215.new/mbank-cli
2 --- mbank-cli-20120215/mbank-cli 2012-02-15 22:48:39.000000000 +0100
3 +++ mbank-cli-20120215.new/mbank-cli 2012-02-23 14:36:01.943098229 +0100
6 my $mbank_host = undef; # use set_country() to define
7 my $mbank = undef; # use set_country() to define
8 -my $cookie_jar_file = './cookie-jar.txt';
9 -my $config_file = './mbank-cli.conf';
10 +my $cookie_jar_file = "$ENV{ HOME }/.mbank-cli_cookie-jar.txt";
11 +my $config_file = "$ENV{ HOME }/.mbank-cli.conf";
12 my $http_read_size_hint = 1 << 20; # 1 MiB
16 eval { $digest_module = Digest->new('SHA-1'); } if $@;
17 $digest_module = Digest->new('MD5') if $@;
19 - user_error "Can't open the config file: $!" unless open my $config, '<', $config_file;
20 + user_error "Can't open the config file ($config_file): $!" unless open my $config, '<', $config_file;
22 $main::digest_module->new();