mbank-cli-ca.patch

   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:40:56.453431641 +0100
   4 @@ -189,12 +189,12 @@
   5
   6  sub lwp_init()
   7  {
   8 -  my $ca_dir = $ENV{HTTPS_CA_DIR};
   9 -  $ca_dir //= '/etc/ssl/certs/';
  10 +  my $ca_file = $ENV{HTTPS_CA_FILE};
  11 +  $ca_file //= '/etc/certs/ca-certificates.crt';
  12    map { delete $ENV{$_}; } grep(/^HTTPS_/, keys %ENV);
  13    $ENV{'HTTPS_VERSION'} = 3;
  14    $ENV{'HTTPS_DEBUG'} = 0;
  15 -  $ENV{'HTTPS_CA_DIR'} = $ca_dir;
  16 +  $ENV{'HTTPS_CA_FILE'} = $ca_file;
  17    umask(umask() | 077);
  18    my $ua = new LWP::UserAgent(
  19      agent => 'Mozilla/5.0',