X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=free%2Flibs%2Fexamples%2Finternal%2Fconfigure;h=3196cbe015ed2de3d8d1aacf4fa0fc3a2409ab49;hb=9675584c3afb9b7630c198ece4189806a550d472;hp=6f4a678d757d57c71a709f3ba350e1b5c41295b3;hpb=89f86d97def2a365b1799f70e3f254264b9c7615;p=libucw.git

diff --git a/free/libs/examples/internal/configure b/free/libs/examples/internal/configure
index 6f4a678d..3196cbe0 100755
--- a/free/libs/examples/internal/configure
+++ b/free/libs/examples/internal/configure
@@ -17,17 +17,18 @@ BEGIN {
 			die "Don't know how to find myself. Please set SRCDIR manually.";
 		}
 	}
-	require "$srcdir/ucw/perl/UCW/Configure.pm";
-	UCW::Configure::import UCW::Configure;
 }
 
+use lib "$srcdir/ucw/perl/";
+use UCW::Configure;
+
 Init($srcdir, "default.cfg");
 Include "ucw/default.cfg";
 Log "### Configuring TestApp ###\n\n";
 Include Get("CONFIG");
-Include "ucw/paths.cfg";
-Include "ucw/autoconf.cfg";
-Include "ucw/ucw.cfg";
+require UCW::Configure::Paths;
+require UCW::Configure::Autoconf;
+require UCW::Configure::UCW;
 Finish();
 
 Log "\nConfigured, run `make' to build everything.\n";