ExtUtils::Packlist doesn't grok filenames with spaces
authorJan Dubois <jand@activestate.com>
Mon, 8 Apr 2002 00:10:39 +0000 (17:10 -0700)
committerAbhijit Menon-Sen <ams@wiw.org>
Mon, 8 Apr 2002 07:06:21 +0000 (07:06 +0000)
   Message-Id: <hkf2bu4tq2j4784o3mua795jgochaesuas@4ax.com>
p4raw-link: @4 on //depot/thrperl: 11343788cbaaede18e3146b5219d2fbdaeaf516e

p4raw-id: //depot/perl@15800

lib/ExtUtils/Packlist.pm

index ace8c49..077d503 100644 (file)
@@ -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)
       {