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
This commit is contained in:
Bill Meier 2013-02-09 14:52:02 +00:00
parent 4c41fd5df9
commit 7b40629a16
1 changed files with 1 additions and 1 deletions

View File

@ -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