rev 1924 - trunk/buscador/lib/Buscador

[prev] [thread] [next] [lurker] [Date index for 2005/02/19]

Author: richardc
Date: 2005-02-19 13:20:04 +0000 (Sat, 19 Feb 2005)
New Revision: 1924

Modified:
   trunk/buscador/lib/Buscador/Config.pm
Log:
hack in BUSCADOR_ROOT, which you can then just PerlSetEnv


Modified: trunk/buscador/lib/Buscador/Config.pm
===================================================================
--- trunk/buscador/lib/Buscador/Config.pm	2005-02-19 12:51:28 UTC (rev 1923)
+++ trunk/buscador/lib/Buscador/Config.pm	2005-02-19 13:20:04 UTC (rev 1924)
@@ -21,9 +21,11 @@
     };
 
     if ($@) {
-        $home = getcwd();    
+        $home = getcwd();
     }
 
+    $home = $ENV{BUSCADOR_ROOT}
+      if $ENV{BUSCADOR_ROOT};
 
     chdir $home;
 
@@ -67,7 +69,7 @@
 
 }
 
-1; 
+1;
 
 __END__
 
@@ -83,8 +85,8 @@
 
 =head1 DESCRIPTION
 
-This works out the current directory (dependent on whether 
-the module is working under Apache or not), reads in a 
+This works out the current directory (dependent on whether
+the module is working under Apache or not), reads in a
 C<buscador.config> file and turns every C<key=value> pair
 into a subroutine C<Buscador::Config->key>.
 

• rev 1924 - trunk/buscador/lib/Buscador richardc 13:20 on 19 Feb 2005

Generated at 21:00 on 20 Feb 2005 by mariachi 0.52