From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <at@altlinux.ru>
Date: Fri, 26 Sep 2003 18:43:33 +0400
From: Alexey Tourbin <at@altlinux.ru>
To: ALT Devel discussion list <devel@altlinux.ru>
Message-ID: <20030926144333.GO12987@julia.office.altlinux.ru>
Mail-Followup-To: ALT Devel discussion list <devel@altlinux.ru>
References: <20030904141845.GB2171@julia.office.altlinux.ru>
	<20030907213857.GA7521@basalt.office.altlinux.org>
	<20030911150639.GA13163@basalt.office.altlinux.org>
	<20030924161821.GB30256@basalt.office.altlinux.org>
	<20030925144340.GT12987@julia.office.altlinux.ru>
Mime-Version: 1.0
Content-Type: multipart/signed; micalg=pgp-sha1;
	protocol="application/pgp-signature"; boundary="1o9jrj+SkgBpwUj4"
Content-Disposition: inline
In-Reply-To: <20030925144340.GT12987@julia.office.altlinux.ru>
Subject: [devel] Re: Sisyphus status -- perl packages
X-BeenThere: devel@altlinux.ru
X-Mailman-Version: 2.1.2
Precedence: list
Reply-To: ALT Devel discussion list <devel@altlinux.ru>
List-Id: ALT Devel discussion list  <devel.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=unsubscribe>
List-Archive: </pipermail/devel>
List-Post: <mailto:devel@altlinux.ru>
List-Help: <mailto:devel-request@altlinux.ru?subject=help>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/devel>,
	<mailto:devel-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Fri, 26 Sep 2003 14:43:37 -0000
Archived-At: <http://lore.altlinux.org/devel/20030926144333.GO12987@julia.office.altlinux.ru/>
List-Archive: <http://lore.altlinux.org/devel/>
List-Post: <mailto:devel@altlinux.org>


--1o9jrj+SkgBpwUj4
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit

On Thu, Sep 25, 2003 at 06:43:40PM +0400, Alexey Tourbin wrote:
> > faces-1.6.1-ipl15mdk
> 
> Can't emulate -P on #! line at /usr/src/RPM/tmp/faces-buildroot/usr/bin/from.faces line 1.
> /usr/src/RPM/tmp/faces-buildroot/usr/bin/from.faces: deparse failed.
> 
> Специфическая ошибка, над которой я подумаю.

Для этого пункта исправление готово (rpm-build-perl).
faces теперь собирается.

PS: всё-таки хочется иметь отдельное кэширование в hasher'е
для --no-stuff и собственно stuff.


* Fri Sep 26 2003 Alexey Tourbin <at@altlinux> 0.1-alt3
- handling of #!perl command line options implemented


--- /usr/lib/rpm/perl.req	2003-09-23 15:25:25 +0400
+++ RPM/SOURCES/rpm-perl.req	2003-09-26 18:24:15 +0400
@@ -251,8 +251,21 @@
 #	use Fcntl;
 #	fcntl(STDERR, F_SETFD, 1) if !$debug && $method eq 'relaxed';
 
+# look for #!/usr/bin/perl command line options
+	open (FILE, "<", $fname) or die;
+	my $shebang = <FILE>;
+	chomp $shebang;
+	close FILE;
+	my @argv;
+	if ($shebang =~ s/^#!\s*\S*perl\S*\s*// && $shebang) {
+		local $_ = $shebang;
+		@argv = grep { $_ ne "--" } split;
+	}
+
 # deparse
-	open(PIPE, "-|", $^X, "-t", "-MO=Deparse", (map { "-I$_" } @inc), "--", $fname) or die;
+	my @pipe = ($^X, @argv, "-MO=Deparse", (map { "-I$_" } @inc), "--", $fname);
+	debug("pipe: @pipe");
+	open(PIPE, "-|", @pipe) or die;
 	while (<PIPE>) {
 		last if /^__(DATA|END)__/;
 		process_line($_);

--1o9jrj+SkgBpwUj4
Content-Type: application/pgp-signature
Content-Disposition: inline

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.3 (GNU/Linux)

iD8DBQE/dFCVfBKgtDjnu0YRApSfAJ9/uxY8jTva518gseGRA9LHXUds3QCfYJHo
GMIau/9r7/HHoZF9RBWgZEw=
=VUrm
-----END PGP SIGNATURE-----

--1o9jrj+SkgBpwUj4--