From 3f65b4fbe2856d5ab0a6a4ccee20c1a44d9d0cd1 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 22 Feb 2007 12:17:40 +0000
Subject: [PATCH] =?utf8?q?Die=20bei=20Lx-Office=20mitgelieferten=20Perl-Mo?=
 =?utf8?q?dule,=20die=20nicht=20zu=20Lx-Office=20selber=20geh=C3=B6ren,=20?=
 =?utf8?q?in=20ein=20eigenes=20Unterverzeichnis=20verschoben.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 am.pl                          | 4 ++++
 kopf.pl                        | 4 ++++
 login.pl                       | 4 ++++
 {CGI => modules/CGI}/.htaccess | 0
 {CGI => modules/CGI}/Ajax.pm   | 0
 {CGI => modules/CGI}/LICENSE   | 0
 {CGI => modules/CGI}/README    | 0
 scripts/dbupgrade2_tool.pl     | 2 ++
 scripts/installation_check.pl  | 4 ++++
 scripts/spawn_oo.pl            | 4 ++++
 10 files changed, 22 insertions(+)
 rename {CGI => modules/CGI}/.htaccess (100%)
 rename {CGI => modules/CGI}/Ajax.pm (100%)
 rename {CGI => modules/CGI}/LICENSE (100%)
 rename {CGI => modules/CGI}/README (100%)

diff --git a/am.pl b/am.pl
index 7e111f368..d5124e8d0 100755
--- a/am.pl
+++ b/am.pl
@@ -30,6 +30,10 @@
 #
 #######################################################################
 
+BEGIN {
+  push(@INC, "modules");
+}
+
 # setup defaults, DO NOT CHANGE
 $userspath  = "users";
 $templates  = "templates";
diff --git a/kopf.pl b/kopf.pl
index 16cd6d95c..bae3cdc7d 100755
--- a/kopf.pl
+++ b/kopf.pl
@@ -1,6 +1,10 @@
 #!/usr/bin/perl
 #
 
+BEGIN {
+  push(@INC, "modules");
+}
+
 use SL::LXDebug;
 $lxdebug = LXDebug->new();
 
diff --git a/login.pl b/login.pl
index 2d4c34e36..f49163362 100755
--- a/login.pl
+++ b/login.pl
@@ -30,6 +30,10 @@
 #
 #######################################################################
 
+BEGIN {
+  push(@INC, "modules");
+}
+
 # setup defaults, DO NOT CHANGE
 $userspath  = "users";
 $templates  = "templates";
diff --git a/CGI/.htaccess b/modules/CGI/.htaccess
similarity index 100%
rename from CGI/.htaccess
rename to modules/CGI/.htaccess
diff --git a/CGI/Ajax.pm b/modules/CGI/Ajax.pm
similarity index 100%
rename from CGI/Ajax.pm
rename to modules/CGI/Ajax.pm
diff --git a/CGI/LICENSE b/modules/CGI/LICENSE
similarity index 100%
rename from CGI/LICENSE
rename to modules/CGI/LICENSE
diff --git a/CGI/README b/modules/CGI/README
similarity index 100%
rename from CGI/README
rename to modules/CGI/README
diff --git a/scripts/dbupgrade2_tool.pl b/scripts/dbupgrade2_tool.pl
index be761c522..42d2cdb38 100755
--- a/scripts/dbupgrade2_tool.pl
+++ b/scripts/dbupgrade2_tool.pl
@@ -5,6 +5,8 @@ BEGIN {
     print("This tool must be run from the Lx-Office ERP base directory.\n");
     exit(1);
   }
+
+  push(@INC, "modules");
 }
 
 use DBI;
diff --git a/scripts/installation_check.pl b/scripts/installation_check.pl
index 875c5651d..bddb2d92a 100755
--- a/scripts/installation_check.pl
+++ b/scripts/installation_check.pl
@@ -1,5 +1,9 @@
 #!/usr/bin/perl -w
 
+BEGIN {
+  push(@INC, "modules");
+}
+
 use SL::InstallationCheck;
 
 $| = 1;
diff --git a/scripts/spawn_oo.pl b/scripts/spawn_oo.pl
index 387961e2e..03e5afd56 100755
--- a/scripts/spawn_oo.pl
+++ b/scripts/spawn_oo.pl
@@ -1,5 +1,9 @@
 #!/usr/bin/perl
 
+BEGIN {
+  push(@INC, "modules");
+}
+
 use DBI;
 use Data::Dumper;
 
-- 
2.20.1