From: Jan Dubois <jand@activestate.com>
Date: Mon, 8 Apr 2002 00:10:39 +0000 (-0700)
Subject: ExtUtils::Packlist doesn't grok filenames with spaces
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=411cc70a34f8fb9bcdf0a5306f32b31a7092ea1e;p=p5sagit%2Fp5-mst-13.2.git

ExtUtils::Packlist doesn't grok filenames with spaces
   Message-Id: <hkf2bu4tq2j4784o3mua795jgochaesuas@4ax.com>
p4raw-link: @4 on //depot/thrperl: 11343788cbaaede18e3146b5219d2fbdaeaf516e

p4raw-id: //depot/perl@15800
---

diff --git a/lib/ExtUtils/Packlist.pm b/lib/ExtUtils/Packlist.pm
index ace8c49..077d503 100644
--- a/lib/ExtUtils/Packlist.pm
+++ b/lib/ExtUtils/Packlist.pm
@@ -89,7 +89,12 @@ my ($line);
 while (defined($line = <$fh>))
    {
    chomp $line;
-   my ($key, @kvs) = split(' ', $line);
+   my ($key, @kvs) = $line;
+   if ($key =~ /^(.*?)( \w+=.*)$/)
+      {
+      $key = $1;
+      @kvs = split(' ', $2);
+      }
    $key =~ s!/\./!/!g;   # Some .packlists have spurious '/./' bits in the paths
    if (! @kvs)
       {