Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

compatibility with perl 5.17 hash randomization

see #45
  • Loading branch information...
commit 2a45d6fa97388a21bc635caf3b20e990fe4f4b55 1 parent 0f30ea3
@berekuk authored
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
2  Changes
@@ -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
View
2  lib/Ubic/Settings/ConfigFile.pm
@@ -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
6 t/setup.t
@@ -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');
Please sign in to comment.
Something went wrong with that request. Please try again.