From 94c58cd2a0c5ca10191e507d436bbb30e72b128c Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org"
 <terry%mozilla.org@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Mon, 18 Oct 1999 23:32:03 +0000
Subject: [PATCH] Oops; fixed perl error.

git-svn-id: svn://10.0.0.236/trunk@51060 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/bonsai/showcheckins.cgi | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/mozilla/webtools/bonsai/showcheckins.cgi b/mozilla/webtools/bonsai/showcheckins.cgi
index b90b645ccf2..2bad73204e2 100755
--- a/mozilla/webtools/bonsai/showcheckins.cgi
+++ b/mozilla/webtools/bonsai/showcheckins.cgi
@@ -102,12 +102,14 @@ my @fields = split(/,/, $::FORM{'sort'});
 sub Compare {
      my $rval = 0;
      my $key;
+     my $aref = eval("\\\%$a");
+     my $bref = eval("\\\%$b");
 
      foreach $key (@fields) {
          if ($key eq 'date') {
-             $rval = $$b{$key} cmp $$a{$key};
+             $rval = $$bref{$key} cmp $$aref{$key};
          } else {
-             $rval = $$a{$key} cmp $$b{$key};
+             $rval = $$aref{$key} cmp $$bref{$key};
          }
          return $rval unless ($rval == 0);
      }