From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on sa.int.altlinux.org X-Spam-Level: X-Spam-Status: No, score=-1.6 required=5.0 tests=AWL,BAYES_00, DNS_FROM_OPENWHOIS,SPF_PASS autolearn=no version=3.2.5 Date: Thu, 4 Nov 2010 13:32:35 +0200 From: Igor Vlasenko To: devel@lists.altlinux.org Message-ID: <20101104113235.GA22696@dad.imath.kiev.ua> References: <20101104112740.GA22585@dad.imath.kiev.ua> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="fdj2RfSjLxBAspz7" Content-Disposition: inline Content-Transfer-Encoding: 8bit In-Reply-To: <20101104112740.GA22585@dad.imath.kiev.ua> User-Agent: Mutt/1.5.20 (2009-08-17) Subject: Re: [devel] =?utf-8?b?0KHQkdC+0YDQutCwIHBlcmw=?= X-BeenThere: devel@lists.altlinux.org X-Mailman-Version: 2.1.12 Precedence: list Reply-To: ALT Linux Team development discussions List-Id: ALT Linux Team development discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 04 Nov 2010 11:32:41 -0000 Archived-At: List-Archive: List-Post: --fdj2RfSjLxBAspz7 Content-Type: text/plain; charset=utf-8 Content-Disposition: inline Content-Transfer-Encoding: 8bit On Thu, Nov 04, 2010 at 01:27:40PM +0200, Igor Vlasenko wrote: > Еще: тот perl_51x_upgrade.pl > был слишком разговорчивый, в аттачменте > perl_51x_upgrade.pl с выключенным логом. теперь прикрепил аттачмент. -- Dr. Igor Vlasenko -------------------- Topology Department Institute of Math Kiev, Ukraine --fdj2RfSjLxBAspz7 Content-Type: application/x-perl Content-Disposition: attachment; filename="perl_51x_upgrade.pl" Content-Transfer-Encoding: quoted-printable #!/usr/bin/perl -w=0Apush @SPECHOOKS, =0Asub {=0A my ($spec) =3D @_;=0A = $spec->{WARN_NOTAPPLIED}--;=0A my $man1found=3D0;=0A foreach my $s= ection ($spec->get_sections()) {=0A if ($section->get_type() eq 'file') {= =0A $section->exclude(qr'\%perl_vendor_man3dir');=0A $man1found||= =3D$section->match(qr'\%perl_vendor_man1dir');=0A # is %perl_vendor_man= 1dir killed too?=0A $section->subst(qr'\%perl_vendor_man1dir','%_man1di= r');=0A }=0A }=0A if ($man1found) {=0A my $installsec=3D$spec->get_se= ction('install');=0A unless ($installsec) {=0A warn "Oops! no \%install= section :(";=0A return;=0A }=0A if ($installsec->match(qr'\%perl_vendo= r_build')) {=0A $installsec->subst(qr'^\s*\%perl_vendor_build','%perl_v= endor_build INSTALLMAN1DIR=3D%_man1dir');=0A $spec->get_section('packag= e','')->push_body('=0A# automatically added during perl 5.8 -> 5.10 upgrade= =2E=0A# perl-podlators is required for pod2man conversion.=0ABuildRequires:= perl-podlators=0A');=0A }=0A }=0A};=0A --fdj2RfSjLxBAspz7--