eddelbuettel / beancounter Goto Github PK

I really hate being the bearer of bad news, but just recently been getting a rather annoying error message:

Use of uninitialized value $age in numeric gt (>) at /usr/local/share/perl/5.20.2/Finance/BeanCounter.pm line 1743.

Things are still working, but it is annoying. Line 1743 simply states:

if ($age > 5) {

The full expression is:

if ($age > 5) { warn "Ignoring $hash{$key}{symbol} ($hash{$key}{name}) " . "with old date $hash{$key}{date}\n"; #warn "Ignoring $hash{$key}{name} with old date $hash{$key}{date}\n"; #if $Config{debug}; $hash{$key}{date} = "N/A"; next; }

I am no whiz with perl, but I do believe there is a simple fix for this somewhere. Thanks for writing such a kickass program. Beers on me, if we ever meet. Cheers.

Since making the transition from Linux to OpenBSD I have not been successful at setting up beancounter. I know this is rock solid code, but for some reason regardless of which database I use, I get the same error.

Use of uninitialized value in die at /usr/local/libdata/perl5/site_perl/Finance/BeanCounter.pm line 144.                                                    
Died at /usr/local/libdata/perl5/site_perl/Finance/BeanCounter.pm line 144.

The section that contains line 144, is part of beancounter's database test to see if the database is configured correctly. The line of code does not look like one I can just comment out something, and go on my way. I am not sure why my system is not defining that particular variable.

The block of code in question is:

sub TestInsufficientDatabaseSchema($$) {
  my ($dbh, $required) = @_;
  my @tables = $dbh->tables();
  die "Database does not contain table beancounter. " .
    "Please run 'update_beancounter'.\n" unless grep /beancounter/, @tables;
  my $sql = q{select version from beancounter};
  my @res = $dbh->selectrow_array($sql) or die $dbh->errstr;
  my $dbschema = $res[0];
  my $num_required = ConvertVersionToLargeInteger($required);
  my $num_schema = ConvertVersionToLargeInteger($dbschema);
  print "Database has schema $dbschema, we require version $required\n"
    if $Config{debug};
  return ($num_schema < $num_required); # extensive testing was required =:-)
}

What am I doing wrong?