bin/116908: pkg_create(1): pkg_create -b makes invalid packages for bsdpan-*

[Andy Clayton]

The following reply was made to PR bin/116908; it has been noted by GNATS.

From: Andy Clayton <clayton at physics.umn.edu>
To: bug-followup at FreeBSD.org, steve at mouf.net
Cc:  
Subject: Re: bin/116908: pkg_create(1): pkg_create -b makes invalid packages
 for bsdpan-*
Date: Wed, 05 Aug 2009 18:40:00 -0500

 This is a multi-part message in MIME format.
 --------------090805070108010607080302
 Content-Type: text/plain; charset=ISO-8859-1; format=flowed
 Content-Transfer-Encoding: 7bit
 
 Here's a patch that fixes this issue, though I'm not sure if it is the 
 right way to go about it. Anyways, the issue seems to simply be that the 
 files listed in the packing list have an unexpected slash before them 
 (when compared to other non-BSDPAN packages).
 
 Andy Clayton
 
 --------------090805070108010607080302
 Content-Type: text/x-patch;
  name="BSDPAN_package_creation.patch"
 Content-Transfer-Encoding: 7bit
 Content-Disposition: inline;
  filename="BSDPAN_package_creation.patch"
 
 --- /usr/local/lib/perl5/5.8.9/BSDPAN/ExtUtils/Packlist.pm	2009-07-09 23:32:50.000000000 -0500
 +++ ./Packlist.pm.fixed	2009-08-05 18:35:23.000000000 -0500
 @@ -54,12 +54,14 @@
  		push @packinglist,
  		    "\@comment This package was generated by BSDPAN\n";
  		push @packinglist,
  		    "\@pkgdep perl-5.8.9_3\n",
  		    "\@comment DEPORIGIN:lang/perl5.8\n";
 -		push @packinglist, "$_\n"
 -		    for @files;
 +		for (@files) {
 +                    s|^/||;
 +		    push @packinglist, "$_\n";
 +		}
  		push @packinglist, "\@unexec rmdir $_ 2>/dev/null || true\n"
  		    for @dirs;
  
  		my $packinglist_file = write_tmp_file($him, join '', @packinglist);
  		last TRY unless $packinglist_file;
 
 --------------090805070108010607080302--