diff options
| author | Haru <haru@dotalux.com> | 2014-11-15 17:22:42 +0100 |
|---|---|---|
| committer | Haru <haru@dotalux.com> | 2014-11-15 17:22:42 +0100 |
| commit | 47565d423f40f4fbbbb032dcc6fa2f6670bfafab (patch) | |
| tree | fe4430e284938c6a3f933a82f6b07f27cd93d0ae /tools | |
| parent | a6f077063eeff08ee27ae5170de1bb5cf4b2defb (diff) | |
| download | hercules-47565d423f40f4fbbbb032dcc6fa2f6670bfafab.tar.gz hercules-47565d423f40f4fbbbb032dcc6fa2f6670bfafab.tar.bz2 hercules-47565d423f40f4fbbbb032dcc6fa2f6670bfafab.tar.xz hercules-47565d423f40f4fbbbb032dcc6fa2f6670bfafab.zip | |
Follow-up to 61fc83fd7dd51e9a88ac7e6264692fcf561a37f7
Compatibility fix for older versions of Perl
Signed-off-by: Haru <haru@dotalux.com>
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/HPMHookGen/HPMDataCheckGen.pl | 2 | ||||
| -rwxr-xr-x | tools/HPMHookGen/HPMHookGen.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/tools/HPMHookGen/HPMDataCheckGen.pl b/tools/HPMHookGen/HPMDataCheckGen.pl index 01728341d..06b58127a 100644 --- a/tools/HPMHookGen/HPMDataCheckGen.pl +++ b/tools/HPMHookGen/HPMDataCheckGen.pl @@ -21,7 +21,7 @@ my %out; foreach my $file (@files) { my $xml = new XML::Simple; my $data = $xml->XMLin($file, ForceArray => 1); - my $filekey = (keys $data->{compounddef})[0]; + my $filekey = (keys %{ $data->{compounddef} })[0]; next unless $data->{compounddef}->{$filekey}->{includes}; # means its a struct from a .c file, plugins cant access those so we don't care. next if $data->{compounddef}->{$filekey}->{compoundname}->[0] =~ /::/; # its a duplicate with a :: name e.g. struct script_state {<...>} ay; my @filepath = split(/[\/\\]/, $data->{compounddef}->{$filekey}->{location}->[0]->{file}); diff --git a/tools/HPMHookGen/HPMHookGen.pl b/tools/HPMHookGen/HPMHookGen.pl index 3daf742bc..c11293d93 100755 --- a/tools/HPMHookGen/HPMHookGen.pl +++ b/tools/HPMHookGen/HPMHookGen.pl @@ -260,7 +260,7 @@ foreach my $file (@files) { # Loop through the xml files my $xml = new XML::Simple; my $data = $xml->XMLin($file, ForceArray => 1); - my $filekey = (keys $data->{compounddef})[0]; + my $filekey = (keys %{ $data->{compounddef} })[0]; my $loc = $data->{compounddef}->{$filekey}->{location}->[0]; next unless $loc->{file} =~ /src\/(map|char|login)\//; my $servertype = $1; |