# vim:sw=4:et:ts=8:tw=72
# bugdb.pl - Functions for processing a comma-delimited database mapping
#   signatures to bugs.
# L. David Baron, 2001-08-19

use 5.004;
use strict;
use Getopt::Long;

sub read_bug_database($$) {
    my ($dbfile, $db) = @_;
    if (open(DBFILE, "<$dbfile")) {
        while (<DBFILE>) {
            chop;
            my ($stacksig, $bugs) = split /,/;
            $db->{$stacksig} = $bugs;
        }
        close(DBFILE);
    }
}

return 1;