diff options
| -rw-r--r-- | source4/build/pidl/util.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/source4/build/pidl/util.pm b/source4/build/pidl/util.pm index c0182bb79e..f0e3c2a2f8 100644 --- a/source4/build/pidl/util.pm +++ b/source4/build/pidl/util.pm @@ -28,7 +28,7 @@ sub FlattenHash($) my $a = shift; my %b; for my $d (@{$a}) { - for my $k (%{$d}) { + for my $k (keys %{$d}) { $b{$k} = $d->{$k}; } } @@ -102,7 +102,7 @@ sub ChangeExtension($$) { my($fname) = shift; my($ext) = shift; - if ($fname =~ /^(.*?)\.(.*?)$/) { + if ($fname =~ /^(.*)\.(.*?)$/) { return "$1.$ext"; } return "$fname.$ext"; |