Permalink
Browse files

compatibility with perl 5.17 hash randomization

see #45
  • Loading branch information...
berekuk committed Dec 2, 2012
1 parent 0f30ea3 commit 2a45d6fa97388a21bc635caf3b20e990fe4f4b55
Showing with 6 additions and 4 deletions.
  1. +2 −0 Changes
  2. +1 −1 lib/Ubic/Settings/ConfigFile.pm
  3. +3 −3 t/setup.t
View
@@ -1,6 +1,8 @@
Revision history for Ubic
{{$NEXT}}
+ * compatibility with perl 5.17 hash randomization
+ (see https://github.com/berekuk/Ubic/issues/45)
1.46 2012-11-08
* require modern BSD::Resource version
@@ -66,7 +66,7 @@ sub write {
my $content = "";
- for my $key (keys %$config) {
+ for my $key (sort keys %$config) {
my $value = $config->{$key};
if ($value =~ /\n/) {
die "Invalid config line '$key = $value', values can't contain line breaks";
View
@@ -24,6 +24,6 @@ ok(-d 'tfiles/ubic/service', 'ubic service dir created');
ok(-e 'tfiles/.ubic.cfg', 'ubic config created');
my @config = split /\n/, slurp 'tfiles/.ubic.cfg';
-like($config[0], qr{^default_user = \S+$}, 'default user config line');
-like($config[1], qr{^service_dir = .*tfiles/ubic/service$}, 'services dir config line');
-like($config[2], qr{^data_dir = .*tfiles/ubic/data$}, 'services dir config line');
+like($config[0], qr{^data_dir = .*tfiles/ubic/data$}, 'services dir config line');
+like($config[1], qr{^default_user = \S+$}, 'default user config line');
+like($config[2], qr{^service_dir = .*tfiles/ubic/service$}, 'services dir config line');

0 comments on commit 2a45d6f

Please sign in to comment.