rpm-perl-macros.patch

   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
   3 @@ -4,7 +4,8 @@
   4
   5  EXTRA_DIST = \
   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 \
   9 +       vpkg-provides.sh
  10
  11  installprefix = $(DESTDIR)
  12
  13 @@ -13,5 +14,6 @@
  14  configdir = ${prefix}/lib/rpm
  15  config_SCRIPTS = \
  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 \
  19 +       vpkg-provides.sh
  20
  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
  23 @@ -0,0 +1,8 @@
  24 +#!/bin/sh
  25 +ulimit -c 0
  26 +
  27 +filelist=`sed "s/['\"]/\\\&/g"`
  28 +
  29 +echo $filelist|/usr/lib/rpm/find-provides
  30 +/usr/lib/rpm/perl.prov $filelist
  31 +
  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
  34 @@ -0,0 +1,11 @@
  35 +#!/bin/sh
  36 +ulimit -c 0
  37 +
  38 +filelist=`sed "s/['\"]/\\\&/g"`
  39 +
  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`"
  43 +echo "$requires
  44 +$requires_perl
  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
  48 @@ -248,6 +248,8 @@
  49  #      %{perl_sitearch}/Image
  50  #      %dir %{perl_sitearch}/auto/Image
  51  #
  52 +#
  53 +# NOTE: %{perl_sitearch}, %{perl_archlib} and %{perl_sitelib} macros
  54 +#      has been moved to macros.perl (see info in this file for details).
  55 +#
  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
  61 @@ -0,0 +1,11 @@
  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
  65 +
  66 +%define                __find_requires @RPMCONFIGDIR@/find-perl-requires
  67 +%define                __find_provides @RPMCONFIGDIR@/find-perl-provides
  68 +
  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)
  72 +
  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
  75 @@ -181,6 +181,7 @@
  76         AC_MSG_RESULT(patch later then 2.2 found)
  77      fi
  78
  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)
  83 @@ -906,8 +907,9 @@
  84  export LIBS INCPATH CONFIG_SITE
  85
  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
  97 @@ -1,4 +1,4 @@
  98 -#!/usr/bin/perl
  99 +#!@PERL@
 100
 101  # a simple makedepends like script for perl.
 102
 103 @@ -12,7 +12,11 @@
 104
 105  if ("@ARGV") {
 106    foreach (@ARGV) {
 107 -    process_file($_);
 108 +    if (m=/usr/(bin|lib|share|X11R6/(lib|bin))/=) {
 109 +      if (! m=(/(doc|man|info|usr/src)/|\.so$)=) {
 110 +        process_file($_);
 111 +      }
 112 +    }
 113    }
 114  } else {
 115
 116 @@ -20,22 +24,30 @@
 117    # contents of the file.
 118
 119    foreach (<>) {
 120 -    process_file($_);
 121 +    if (m=/usr/(bin|lib|share|X11R6/(lib|bin))/=) {
 122 +      if (! m=(/(doc|man|info|usr/src)/|\.(so|pl|ph)$)=) {
 123 +        process_file($_);
 124 +      }
 125 +    }
 126    }
 127  }
 128
 129
 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";
 135 +    } else {
 136 +        print "perl($module)\n";
 137 +    }
 138    } else {
 139
 140 -    print "perl($module)>=$require{$module}\n";
 141 +    print "perl($module) >= $require{$module}\n";
 142
 143      # we need to print it without the version number until the
 144      # requires syntax accepts version numbers correctly.
 145
 146 -    print "perl($module)\n";
 147 +#    print "perl($module)\n";
 148    }
 149  }
 150
 151 @@ -54,7 +66,7 @@
 152    while (<FILE>) {
 153
 154      # skip the documentation
 155 -    if ( (m/^=(head1|head2|pod)/) .. (m/^=(cut)/) ) {
 156 +    if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/) ) {
 157        next;
 158      }
 159
 160 @@ -108,8 +120,20 @@
 161        # will be included with the name sys/systeminfo.ph so only use the
 162        # basename of *.ph files
 163
 164 -      ($module  =~ m/\.ph$/) && ($module =~ s!.*/!!g );
 165 +      # ($module  =~ m/\.ph$/) && ($module =~ s!.*/!!g );
 166 +
 167 +      # there is no need to generate dependencies for ph and pl files
 168 +      # so let's just skip them
 169 +
 170 +      ($module =~ m/\.(ph|pl)$/) && next;
 171 +
 172 +      # skip all modules for oparating systems other than linux
 173 +
 174 +      ($module =~ m/Mac|OS2|MSDOS|Win32|VMS|vmsish/) && next;
 175 +
 176 +      # if the module ends with .pm strip it to leave only basename
 177
 178 +      ($module =~ m/\.pm$/) && ($module =~ s!\.pm$!!g );
 179
 180        $require{$module}=$version;
 181        $line{$module}=$_;
 182 --- rpm-3.0.3/scripts/perl.prov.pld     Sat Jun  5 22:52:31 1999
 183 +++ rpm-3.0.3/scripts/perl.prov Sun Oct 31 02:17:45 1999
 184 @@ -1,4 +1,4 @@
 185 -#!/usr/bin/perl
 186 +#!@PERL@
 187
 188  # a simple script to print the proper name for perl libraries.
 189
 190 @@ -13,7 +13,9 @@
 191
 192  if ("@ARGV") {
 193    foreach (@ARGV) {
 194 -    process_file($_);
 195 +    if (! m=\.(so|gz|ph|pod)$=) {
 196 +      process_file($_);
 197 +    }
 198    }
 199  } else {
 200
 201 @@ -21,7 +23,9 @@
 202    # contents of the file.
 203
 204    foreach (<>) {
 205 -    process_file($_);
 206 +    if (! m=\.(so|gz|ph|pod)$=) {
 207 +      process_file($_);
 208 +    }
 209    }
 210  }
 211
 212 @@ -30,12 +34,12 @@
 213    if (length($require{$module}) == 0) {
 214      print "perl($module)\n";
 215    } else {
 216 -    print "perl($module)=$require{$module}\n";
 217 +    print "perl($module) = $require{$module}\n";
 218
 219      # we need to print it without the version number until the
 220      # requires syntax accepts version numbers correctly.
 221
 222 -    print "perl($module)\n";
 223 +#    print "perl($module)\n";
 224    }
 225  }
 226