From fc4e4c29f657b9aa01180a91f461a0342a8c7be2 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 30 Dec 2004 23:47:03 +0000
Subject: [PATCH] search the current dir *first*, otherwise some weird
 Apache::ASP bugs could crop up if things are ever named the same

---
 htetc/global.asa | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/htetc/global.asa b/htetc/global.asa
index c5f4ee099..94a103081 100644
--- a/htetc/global.asa
+++ b/htetc/global.asa
@@ -207,15 +207,15 @@ sub sprintAutoProfile {
 
 sub include {
   my $file = shift;
-  my $pop = 0;
+  my $shift = 0;
   if ( $file =~ m(^([^/].*)/[^/]+) ) {
-    push @{$Response->{asp}{includes_dir}}, "./$1";
-    $pop = 1;
+    unshift @{$Response->{asp}{includes_dir}}, "./$1";
+    $shift = 1;
   }
   $file =~ s(^/)(%%%FREESIDE_DOCUMENT_ROOT%%%/);
   #broken in 5.005# ${$Response->TrapInclude($file, @_)};
   my $ref = $Response->TrapInclude($file, @_);
-  pop @{$Response->{asp}{includes_dir}} if $pop;
+  shift @{$Response->{asp}{includes_dir}} if $shift;
   $$ref;
 }
 
-- 
2.11.0