diff options
| author | njames <nkskjames@gmail.com> | 2016-10-17 14:40:51 -0500 |
|---|---|---|
| committer | njames <nkskjames@gmail.com> | 2016-10-17 14:40:51 -0500 |
| commit | d5439651a5c89c7a51038ce65c62ab8483271627 (patch) | |
| tree | 7f5c447838e36ffb7cf32b1801e6d2ec3695dd9d | |
| parent | 0d0dde4df54d8c8f101d6b23c9cfb3e55312aa3e (diff) | |
| download | serverwiz-d5439651a5c89c7a51038ce65c62ab8483271627.tar.gz serverwiz-d5439651a5c89c7a51038ce65c62ab8483271627.zip | |
Support enumerations with only one value. Fixes issue #5.
Perl XML parser by default represents single child as a value
and not a hash. This change forces enumerators to be represented
as a hash.
Signed-off-by: Norman James <nkskjames@gmail.com>
| -rw-r--r-- | scripts/Targets.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/Targets.pm b/scripts/Targets.pm index 35f0842..a8e3a0c 100644 --- a/scripts/Targets.pm +++ b/scripts/Targets.pm @@ -89,7 +89,7 @@ sub loadXML print "Loading MRW XML: $filename\n"; $self->{xml} = XMLin($filename,forcearray => [ 'child_id', 'hidden_child_id', 'bus', - 'property', 'field', 'attribute' ]); + 'property', 'field', 'attribute', 'enumerator' ]); if (defined($self->{xml}->{'enumerationTypes'})) { |
