diff options
author | Bill Meier <wmeier@newsguy.com> | 2013-02-09 14:52:02 +0000 |
---|---|---|
committer | Bill Meier <wmeier@newsguy.com> | 2013-02-09 14:52:02 +0000 |
commit | 7b40629a16c856049a063f2b3c58975a092eea0d (patch) | |
tree | e2272e2aadfe17a4c793d99854c1f9e981735f71 /tools | |
parent | 4c41fd5df976c4935b78214a00e255a79405ae41 (diff) |
Fix a syntax error which causes a compile error
(altho not in my version Cygwin Perl V5.14 for some reason).
svn path=/trunk/; revision=47584
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/checkhf.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/checkhf.pl b/tools/checkhf.pl index bcd3a1fa4a..116b1e72ca 100755 --- a/tools/checkhf.pl +++ b/tools/checkhf.pl @@ -539,7 +539,7 @@ sub remove_hf_pid_from_unused_if_add_oui_call { return; } - my @hfvars = grep { m/ ^ hf_ [a-zA-Z0-9_]+ _pid $ /xmso} keys $unUsedHRef; + my @hfvars = grep { m/ ^ hf_ [a-zA-Z0-9_]+ _pid $ /xmso} keys %$unUsedHRef; if ((@hfvars == 0) || (@hfvars > 1)) { return; # if multiple unused hf_..._pid |