X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=blobdiff_plain;f=get-version;fp=get-version;h=1867cddbb63db27b117b40c2ee3b612519d60cf6;hp=0000000000000000000000000000000000000000;hb=32330ab0926e5cdad0fca8b4a44c3e7d3010f649;hpb=f7b07a51ff95442576e1d270ac63a56e740ff4f2

diff --git a/get-version b/get-version
new file mode 100644
index 0000000..1867cdd
--- /dev/null
+++ b/get-version
@@ -0,0 +1,7 @@
+use Data::Dumper;
+use MLDBM qw(DB_File Storable);
+my %v;
+tie %v, "MLDBM", "/org/bugs.debian.org/versions/indices/versions.idx", 0;
+my $z = $v{$ARGV[0]};
+print Data::Dumper::Dumper($z);
+