From a5cb92f23d181d40dd82531075a1ad5242b5d57c Mon Sep 17 00:00:00 2001
From: radek <radek@pld-linux.org>
Date: Tue, 27 Apr 2004 09:16:30 +0000
Subject: [PATCH] - generate dependencies from @INC directories

Changed files:
    rpm-perl_req-INC_dirs.patch -> 1.1
---
 rpm-perl_req-INC_dirs.patch | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 rpm-perl_req-INC_dirs.patch

diff --git a/rpm-perl_req-INC_dirs.patch b/rpm-perl_req-INC_dirs.patch
new file mode 100644
index 0000000..1fa9a96
--- /dev/null
+++ b/rpm-perl_req-INC_dirs.patch
@@ -0,0 +1,34 @@
+--- scripts/perl.req~	2004-04-16 13:27:10.000000000 +0200
++++ scripts/perl.req	2004-04-26 23:54:42.128568344 +0200
+@@ -39,8 +39,19 @@
+ 
+ # by Ken Estes Mail.com kestes@staff.mail.com
+ 
++
++
++# *inc variables are used to track dependencies on directories for modules.
++# These directories (especially arch-dependent) are likely to change some day.
++my @inc = sort { length $b cmp length $a }
++          map { s#/*$##; $_ }
++          grep m#^/.#, @INC;
++my %inc = map { $_ => 0 } @inc;
++my $inc = join '|', map "\Q$_\E", @inc;
++
+ foreach ( @ARGV ? @ARGV : <> ) {
+-	chomp;
++    chomp;
++    $inc{$1}++ if m#^($inc)/#;
+     if (m=/usr/(sbin|bin|lib|share|X11R6/(lib|bin))/=) {
+       if (! m=(/(doc|man|info|usr/src)/|\.(so|ph|h|html|pod)$)=) {
+         process_file($_) if -f;
+@@ -53,8 +64,9 @@
+ }
+ delete $require{the}; # don't count "use the sth" as perl module  
+ 
++print "$_\n" for sort grep $inc{$_}, keys %inc;
+ 
+-foreach $module (sort keys %require) {
++foreach my $module (sort keys %require) {
+   if (length($require{$module}) == 0) {
+      if ($module =~ /^[0-9._]+$/) {
+        print "perl-base >= $module\n";
-- 
2.44.0