MM_AIX needs neatvalue

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / Packlist.pm

diff --git a/lib/ExtUtils/Packlist.pm b/lib/ExtUtils/Packlist.pm
index eeb0a5b..11ab637 100644 (file)
--- a/lib/ExtUtils/Packlist.pm
+++ b/lib/ExtUtils/Packlist.pm
@@ -1,8 +1,10 @@
 package ExtUtils::Packlist;
+
+use 5.00503;
 use strict;
 use Carp qw();
 use vars qw($VERSION);
-$VERSION = '0.03';
+$VERSION = '0.04';
 
 # Used for generating filehandle globs.  IO::File might not be available!
 my $fhname = "FH1";
@@ -88,7 +90,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)
       {
@@ -199,7 +206,7 @@ filename followed by the key=value pairs from the hash.  Reading back the
 
 =head1 FUNCTIONS
 
-=over
+=over 4
 
 =item new()