package ExtUtils::Packlist;
-use 5.006_001;
+use 5.00503;
use strict;
use Carp qw();
-our $VERSION = '0.04';
+use vars qw($VERSION);
+$VERSION = '0.04';
# Used for generating filehandle globs. IO::File might not be available!
my $fhname = "FH1";
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)
{