From 6f924fb4fed54bda252eea17dd0ae7d5967172b3 Mon Sep 17 00:00:00 2001
From: Robert Buels <rbuels@gmail.com>
Date: Thu, 17 Jan 2013 13:15:48 -0500
Subject: [PATCH] make the perl HashStore record the key of the last entry
 written to, can be used to have a handle on at least one entry in the hash

---
 src/perl5/Bio/JBrowse/HashStore.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/perl5/Bio/JBrowse/HashStore.pm b/src/perl5/Bio/JBrowse/HashStore.pm
index b897de9e94..cd8be10b5f 100644
--- a/src/perl5/Bio/JBrowse/HashStore.pm
+++ b/src/perl5/Bio/JBrowse/HashStore.pm
@@ -116,6 +116,7 @@ sub set {
     my $bucket = $self->_getBucket( $key );
     $bucket->{data}{$key} = $value;
     $bucket->{dirty} = 1;
+    $self->{meta}{last_changed_entry} = $key;
 
     return $value;
 }