From c4454c51bfdf85cc2e019c51717ca3396c097de8 Mon Sep 17 00:00:00 2001
From: allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Wed, 28 Jul 1999 16:02:46 +0000
Subject: Amended the sorting algorithm to first remove all routines which need
 no sorting.

git-svn-id: http://svn.cactuscode.org/flesh/trunk@806 17b73243-c579-4c4c-a9d2-2d5706c11dac
---
 lib/sbin/Orderer.pl | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

(limited to 'lib/sbin/Orderer.pl')

diff --git a/lib/sbin/Orderer.pl b/lib/sbin/Orderer.pl
index 3f32bd9d..54a8277b 100644
--- a/lib/sbin/Orderer.pl
+++ b/lib/sbin/Orderer.pl
@@ -358,10 +358,29 @@ sub SortThings
     return;
   }
 
+  # Remove anything which doesn't need sorting
+  $sortcount=0;
+  $returncount=0;
+  for ($i=0;$i<scalar(@things);$i++)
+  {
+      if ($database{"\U$things[$i] AFTER"} || $database{"\U$things[$i] ALLAFTER"} || 
+	  $database{"\U$things[$i] BEFORE"} || $database{"\U$things[$i] ALLBEFORE"})
+      {
+	  $sortthings[$sortcount] = $things[$i];
+	  $sortcount++;
+      }
+      else
+      {
+	  $returnthings[$returncount] = $things[$i];
+	  $returncount++
+      }
+  }
+
+
   # Sort the things
-  @sorted_things = sort ThingSorter @things;
+  @sorted_things = sort ThingSorter @sortthings;
+  return (@returnthings,@sorted_things);
 
-  return @sorted_things;
 }
 
 
-- 
cgit v1.2.3