From d7b0b5bbc4440c296183562a2796ac299a1737d9 Mon Sep 17 00:00:00 2001
From: Vitaly Kuznetsov <vitty@altlinux.ru>
Date: Thu, 24 Sep 2009 15:02:21 +0000
Subject: [PATCH] make RPM_PERL_LIB_PATH realy useable

---
 perl.prov           |    9 +++++++++
 perl.req            |    9 +++++++++
 rpm-build-perl.spec |    6 +++++-
 3 files changed, 23 insertions(+), 1 deletions(-)

diff --git a/perl.prov b/perl.prov
index 4e30d18..e51f7fe 100755
--- a/perl.prov
+++ b/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;
 
diff --git a/perl.req b/perl.req
index 614127a..e300a5d 100755
--- a/perl.req
+++ b/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?/),
diff --git a/rpm-build-perl.spec b/rpm-build-perl.spec
index 770f059..202af07 100644
--- a/rpm-build-perl.spec
+++ b/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
-- 
1.6.3.3