Permalink
Browse files

allow relaxed json in config

  • Loading branch information...
1 parent cd85082 commit c6d3c26a0ee1e199b4ce64410cc7c2695311aa41 @mauke committed Mar 28, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 vision.pl
View
@@ -74,7 +74,7 @@
use again 'Data::Munge' => qw(list2re); BEGIN { Data::Munge->VERSION('0.04') }
use again 'List::Util' => qw(max);
-our $VERSION = '0.04';
+our $VERSION = '0.041';
our %IRSSI = (
authors => 'mauke',
@@ -261,7 +261,7 @@ sub read_net_json_from_default {
$!{ENOENT} or die "$file: $!";
return $def;
}
- my $r = decode_json slurp $fh;
+ my $r = JSON->new->relaxed->decode(slurp $fh);
ref($r) eq ref($def) or die "$file: type doesn't match default (${\ref $def})";
$r
}

0 comments on commit c6d3c26

Please sign in to comment.