[Rt-commit] r4942 - rtir/branches/1.9-EXPERIMENTAL

[ruz at bestpractical.com]

Author: ruz
Date: Mon Apr  3 19:07:23 2006
New Revision: 4942

Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)
   rtir/branches/1.9-EXPERIMENTAL/Makefile.PL

Log:
 r1230 at cubic-pc:  cubic | 2006-04-04 03:15:45 +0400
 * svk add RTFM as requirement


Modified: rtir/branches/1.9-EXPERIMENTAL/Makefile.PL
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/Makefile.PL	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/Makefile.PL	Mon Apr  3 19:07:23 2006
@@ -3,20 +3,23 @@
 RTx('RT-IR');
 license('GPL Version 2');
 author('Best Practical Solutions <sales at bestpractical.com>');
-#description('RT extension for Incident Response');
 version('1.9.HEAD');
 
+# XXX: This should be reported by M::I::RTx
+my ($lib_path) = $INC{'RT.pm'} =~ /^(.*)[\\\/]/;
+my $local_lib_path = "$RT::LocalPath/lib";
+
+unshift @INC, $local_lib_path, $lib_path;
+requires('RT::FM');
+
 requires('DBIx::SearchBuilder', 1.40);
 requires('Business::Hours');
 requires('Business::SLA');
 requires('Net::Whois::RIPE');
 auto_install();
 
-my ($lp) = $INC{'RT.pm'} =~ /^(.*)[\\\/]/;
-my $lib_path = join( ' ', "$RT::LocalPath/lib", $lp );
-
 substitute( {
-        RT_LIB_PATH => $lib_path,
+        RT_LIB_PATH => join( ' ', $local_lib_path, $lib_path ),
     },
     't/rtir-test.pl'
 );