Skip to content

Commit 774aedb

Browse files
committed
#3 perl 5.10 compatibility for ConfigurationImporter
1 parent 2b31796 commit 774aedb

File tree

2 files changed

+7
-2
lines changed

2 files changed

+7
-2
lines changed

CHANGELOG_V1-x.md

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,7 @@
11
## Changelog for V1.x
22

3+
#### V1.1.1
4+
* perl 5.10 compatibility for ConfigurationImporter
5+
36
#### V1.1.0
47
* Support automatic configuration import from yaml files

configurationManagerLib/Loader/ConfigurationImporter.pm

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,8 @@ use strict;
33
use warnings;
44
require Exporter;
55

6+
$ConfigurationImporter::VERSION = "1.1.1";
7+
68
sub import
79
{
810
no strict 'refs';
@@ -15,7 +17,7 @@ sub import
1517
my $content = ${$args->{"content"}};
1618
my $loader = $args->{"loader"};
1719

18-
foreach my $contentKey (keys($content)) {
20+
foreach my $contentKey (keys(%{$content})) {
1921
next if ($contentKey ne "import");
2022

2123
my @importedFiles;;
@@ -29,7 +31,7 @@ sub import
2931
foreach my $importedFile (@importedFiles) {
3032
my $importedContent = $loader->load($importedFile);
3133

32-
foreach my $importedContentKey (keys($importedContent)) {
34+
foreach my $importedContentKey (keys(%{$importedContent})) {
3335
if (!exists $content->{$importedContentKey}) {
3436
$content->{$importedContentKey} = $importedContent->{$importedContentKey};
3537
}

0 commit comments

Comments
 (0)