bugscan now uses basename
[bugscan.git] / get-version
1 use Data::Dumper;
2 use MLDBM qw(DB_File Storable);
3 my %v;
4 tie %v, "MLDBM", "/org/bugs.debian.org/versions/indices/versions.idx", 0;
5 my $z = $v{$ARGV[0]};
6 print Data::Dumper::Dumper($z);
7