From 5e96465a264e581b6beac87910b0151e1a040b38 Mon Sep 17 00:00:00 2001
From: Darshan Shaligram <scintilla@gmail.com>
Date: Sun, 27 Mar 2011 18:40:41 +0530
Subject: [PATCH] Tweak weight for Crawl whereis info.

---
 bin/crawl-inotify-dglwhere.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/crawl-inotify-dglwhere.pl b/bin/crawl-inotify-dglwhere.pl
index a2d2cec8..96597061 100644
--- a/bin/crawl-inotify-dglwhere.pl
+++ b/bin/crawl-inotify-dglwhere.pl
@@ -84,7 +84,7 @@ ($)
   my $w = shift;
   # No more than 18 characters, empty string for saved/dead characters:
   return '' if $$w{status} ne 'active';
-  my $weight = $$w{xl} + $$w{lvl} * 2;
+  my $weight = $$w{xl} * 100 + $$w{lvl};
   sprintf("$weight|%-3s $$w{char}, $$w{place}",
           "L$$w{xl}")
 }