@@ -, +, @@ 
---
 perl.prov           |    9 +++++++++
 perl.req            |    9 +++++++++
 rpm-build-perl.spec |    6 +++++-
 3 files changed, 23 insertions(+), 1 deletions(-)
--- a/perl.prov	
+++ a/perl.prov	
@@ -14,6 +14,15 @@ GetOptions
 $Verbose = 2 if $ENV{RPM_SCRIPTS_DEBUG};
 $| = 1;
 
+if ($ENV{RPM_PERL_LIB_PATH}) {
+my @libdirs = split(' ',$ENV{RPM_PERL_LIB_PATH});
+my $libdir;
+my $dir = $ENV{RPM_BUILD_ROOT} || "";
+ foreach $libdir (@libdirs) {
+    unshift (@INC, ($libdir, $dir . $libdir));
+ }
+}
+
 # list of provides
 my %prov;
 
--- a/perl.req	
+++ a/perl.req	
@@ -19,6 +19,15 @@ $Method eq "strict" || $Method eq "normal" || $Method eq "relaxed" ||
 	pod2usage("$0: invalid method $Method");
 $| = 1;
 
+if ($ENV{RPM_PERL_LIB_PATH}) {
+my @libdirs = split(' ',$ENV{RPM_PERL_LIB_PATH});
+my $libdir;
+my $dir = $ENV{RPM_BUILD_ROOT} || "";
+ foreach $libdir (@libdirs) {
+   unshift (@INC, ($libdir, $dir . $libdir));
+ }
+}
+
 my @Skip = (
 #	qr(/usr/share/doc/),
 #	qr(/[Dd]emos?/),
--- a/rpm-build-perl.spec	
+++ a/rpm-build-perl.spec	
@@ -1,10 +1,11 @@ 
 Name: rpm-build-perl
 Version: 0.70
-Release: alt1
+Release: alt2
 
 Summary: RPM helper scripts to calculate Perl dependencies
 License: GPL
 Group: Development/Other
+Packager: Alexey Tourbin <at@altlinux.ru>
 
 URL: %CPAN %name
 Source: %name-%version.tar.gz
@@ -54,6 +55,9 @@ cp -p macros.env %buildroot/etc/rpm/macros.d/perl5.env
 %config /etc/rpm/macros.d/perl5.env
 
 %changelog
+* Thu Sep 24 2009 Vitaly Kuznetsov <vitty@altlinux.ru> 0.70-alt2
+- make RPM_PERL_LIB_PATH realy useable
+
 * Mon May 11 2009 Alexey Tourbin <at@altlinux.ru> 0.70-alt1
 - B/Walker.pm: new module, implements optree traversal
 - B/Clobbers.pm: new experimental module, for checking global variables
--