1 --- rpm-3.0.3/scripts/Makefile.am.wiget Sat Jun 5 22:52:30 1999
2 +++ rpm-3.0.3/scripts/Makefile.am Sat Oct 30 12:28:50 1999
6 convertrpmrc.sh find-lang.sh freshen.sh getpo.sh \
7 - perl.prov perl.req vpkg-provides.sh
8 + perl.prov perl.req find-perl-requires find-perl-provides \
11 installprefix = $(DESTDIR)
14 configdir = ${prefix}/lib/rpm
16 convertrpmrc.sh find-lang.sh freshen.sh getpo.sh \
17 - perl.prov perl.req vpkg-provides.sh
18 + perl.prov perl.req find-perl-requires find-perl-provides \
21 --- rpm-3.0.3/scripts/find-perl-provides.wiget Sat Oct 30 12:28:50 1999
22 +++ rpm-3.0.3/scripts/find-perl-provides Sat Oct 30 12:28:50 1999
27 +filelist=`sed "s/['\"]/\\\&/g"`
29 +echo $filelist|/usr/lib/rpm/find-provides
30 +/usr/lib/rpm/perl.prov $filelist
32 --- rpm-3.0.3/scripts/find-perl-requires.wiget Sat Oct 30 12:28:50 1999
33 +++ rpm-3.0.3/scripts/find-perl-requires Sat Oct 30 12:28:50 1999
38 +filelist=`sed "s/['\"]/\\\&/g"`
40 +requires="`echo $filelist|/usr/lib/rpm/find-requires`"
41 +requires_perl="`/usr/lib/rpm/perl.req $filelist`"
42 +requires_mod="`rpm -q --whatprovides --qf "%{NAME}\n" $requires_perl 2>/dev/null`"
45 +$requires_mod"| sort -u
46 --- rpm-3.0.3/macros.in.wiget Sat Oct 30 12:28:50 1999
47 +++ rpm-3.0.3/macros.in Sat Oct 30 12:28:50 1999
49 # %{perl_sitearch}/Image
50 # %dir %{perl_sitearch}/auto/Image
53 +# NOTE: %{perl_sitearch}, %{perl_archlib} and %{perl_sitelib} macros
54 +# has been moved to macros.perl (see info in this file for details).
56 %requires_eq() %(LC_ALL="C" rpm -q --queryformat 'Requires:%%{NAME} = %%{VERSION}' %1| grep -v "is not")
57 -%perl_sitearch %(eval "`perl -V:installsitearch`"; echo $installsitearch)
58 -%perl_archlib %(eval "`perl -V:installarchlib`"; echo $installarchlib)
59 --- rpm-3.0.3/macros.perl.in.wiget Sat Oct 30 12:28:50 1999
60 +++ rpm-3.0.3/macros.perl.in Sat Oct 30 12:28:50 1999
62 +# Perl specific macro definitions.
63 +# To make use of these macros insert the following line into your spec file:
64 +# %include @RPMCONFIGDIR@/macros.perl
66 +%define __find_requires @RPMCONFIGDIR@/find-perl-requires
67 +%define __find_provides @RPMCONFIGDIR@/find-perl-provides
69 +%define perl_sitelib %(eval "`perl -V:installsitelib`"; echo $installsitelib)
70 +%define perl_sitearch %(eval "`perl -V:installsitearch`"; echo $installsitearch)
71 +%define perl_archlib %(eval "`perl -V:installarchlib`"; echo $installarchlib)
73 --- rpm-3.0.3/configure.in.wiget Sat Oct 30 13:17:49 1999
74 +++ rpm-3.0.3/configure.in Sat Oct 30 13:18:52 1999
76 AC_MSG_RESULT(patch later then 2.2 found)
79 + AC_PATH_PROG(PERL, perl, /usr/bin/perl, $MYPATH)
80 AC_PATH_PROG(PGPBIN, pgp, /usr/bin/pgp, $MYPATH)
81 AC_PATH_PROG(__RM, rm, /bin/rm, $MYPATH)
82 AC_PATH_PROG(__TAR, tar, /bin/tar, $MYPATH)
84 export LIBS INCPATH CONFIG_SITE
86 AC_CONFIG_SUBDIRS(popt)
87 -AC_OUTPUT([Makefile rpmrc macros macros.pld lib/Makefile
88 - build/Makefile tools/Makefile scripts/Makefile
89 +AC_OUTPUT([Makefile rpmrc macros macros.pld macros.perl lib/Makefile
90 + build/Makefile tools/Makefile
91 + scripts/Makefile scripts/perl.req scripts/perl.prov
92 tests/Makefile tests/rpmrc tests/macros tests/hello-test/Makefile
93 misc/Makefile po/Makefile.in intl/Makefile
94 doc/Makefile doc/manual/Makefile doc/pl/Makefile doc/ru/Makefile
95 --- rpm-3.0.3/scripts/perl.req.pld Sat Oct 30 17:00:59 1999
96 +++ rpm-3.0.3/scripts/perl.req Sat Oct 30 17:01:08 1999
101 # a simple makedepends like script for perl.
108 + if (m=/usr/(bin|lib|share|X11R6/(lib|bin))/=) {
109 + if (! m=(/(doc|man|info|usr/src)/|\.so$)=) {
117 # contents of the file.
121 + if (m=/usr/(bin|lib|share|X11R6/(lib|bin))/=) {
122 + if (! m=(/(doc|man|info|usr/src)/|\.(so|pl|ph)$)=) {
130 foreach $module (sort keys %require) {
131 if (length($require{$module}) == 0) {
132 - print "perl($module)\n";
133 + if ($module =~ /^[0-9._]+$/) {
134 + print "perl >= $module\n";
136 + print "perl($module)\n";
140 - print "perl($module)>=$require{$module}\n";
141 + print "perl($module) >= $require{$module}\n";
143 # we need to print it without the version number until the
144 # requires syntax accepts version numbers correctly.
146 - print "perl($module)\n";
147 +# print "perl($module)\n";
154 # skip the documentation
155 - if ( (m/^=(head1|head2|pod)/) .. (m/^=(cut)/) ) {
156 + if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/) ) {
161 # will be included with the name sys/systeminfo.ph so only use the
162 # basename of *.ph files
164 - ($module =~ m/\.ph$/) && ($module =~ s!.*/!!g );
165 + # ($module =~ m/\.ph$/) && ($module =~ s!.*/!!g );
167 + # there is no need to generate dependencies for ph and pl files
168 + # so let's just skip them
170 + ($module =~ m/\.(ph|pl)$/) && next;
172 + # skip all modules for oparating systems other than linux
174 + ($module =~ m/Mac|OS2|MSDOS|Win32|VMS|vmsish/) && next;
176 + # if the module name starts in a dot it is not a module name
178 + ($module =~ m/^\./) && next;
180 + # if the module ends with .pm strip it to leave only basename
182 + ($module =~ m/\.pm$/) && ($module =~ s/\.pm//g);
184 + # strip () from module name ( ex. Carp() )
186 + ($module =~m/\(\)$/) && ($module =~ s/\(\)//g);
188 $require{$module}=$version;
190 --- rpm-3.0.3/scripts/perl.prov.pld Sat Jun 5 22:52:31 1999
191 +++ rpm-3.0.3/scripts/perl.prov Sun Oct 31 02:17:45 1999
196 # a simple script to print the proper name for perl libraries.
203 + if (! m=\.(so|gz|ph|pod)$=) {
210 # contents of the file.
214 + if (! m=\.(so|gz|ph|pod)$=) {
221 if (length($require{$module}) == 0) {
222 print "perl($module)\n";
224 - print "perl($module)=$require{$module}\n";
225 + print "perl($module) = $require{$module}\n";
227 # we need to print it without the version number until the
228 # requires syntax accepts version numbers correctly.
230 - print "perl($module)\n";
231 +# print "perl($module)\n";