# HG changeset patch # User MattD # Date 1251121028 -3600 # Node ID 71d64162329a4ecb519f6de4b3675131926f922a # Parent 598bc53daddb2d71e44e1b0b0b53e91e7c8b3a53# Parent ea854a4b723d0324a485fef870dc7d0db8a3e1c6 catchup merge diff -r 598bc53daddb -r 71d64162329a common/tools/populateziptemplate.pl --- a/common/tools/populateziptemplate.pl Mon Aug 24 14:35:52 2009 +0100 +++ b/common/tools/populateziptemplate.pl Mon Aug 24 14:37:08 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!";