common/tools/populateziptemplate.pl
changeset 372 ea854a4b723d
parent 313 52d855dfda13
child 380 d4dac57985d9
--- a/common/tools/populateziptemplate.pl	Thu Aug 20 12:49:47 2009 +0100
+++ b/common/tools/populateziptemplate.pl	Mon Aug 24 11:17:40 2009 +0100
@@ -68,7 +68,7 @@
 my $keyAttr = { config => "name", name => "set"};
 # Load template
 my $xml = XML::Simple->new();
-my $zipConfig = $xml->XMLin($template, KeyAttr => $keyAttr);
+my $zipConfig = $xml->XMLin($template, keyattr => $keyAttr);
 my @allRndFiles;
 
 # For each package in CSV...
@@ -148,7 +148,7 @@
 my @excludes = map { {name => "exclude", value => "$_"} } @allRndFiles;
 push @{$zipConfig->{config}->{config}->{bin}->{config}->{set}}, @excludes;
 
-$xml->XMLout($zipConfig, OutputFile => $ftl, XMLDecl => 1, RootName => 'build', KeyAttr => $keyAttr);
+$xml->XMLout($zipConfig, OutputFile => $ftl, XMLDecl => 1, RootName => 'build', keyattr => $keyAttr);
 
 # Output all rnd files into exclude list for later
 open my $fh, ">", $rndExcludes or die "Cannot write exlude file!";