os checks no longer need to decode JSON

barbie · Mar 22, 2014 · 9d9f832 · 9d9f832
1 parent 7c4c62d
commit 9d9f832
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,8 @@
 Revision history for CPAN-Testers-Data-Generator
 ================================================
 
+        - arch os no longer needs to decode JSON.
+
 1.13    2014-03-20
         - enable mysql_auto_reconnect.
         - updates from live fixes.

diff --git a/lib/CPAN/Testers/Data/Generator.pm b/lib/CPAN/Testers/Data/Generator.pm
@@ -1296,8 +1296,8 @@ sub _check_arch_os {
     return	if($text && $self->{report}{osname} && lc $text eq lc $self->{report}{osname});
 
 #print STDERR "_check: metabase=".Dumper($self->{report}{metabase})."\n";
-    my $fact = decode_json($self->{report}{metabase}{'CPAN::Testers::Fact::LegacyReport'}{content});
-    my $textreport = $fact->{textreport};
+    my $textreport = $self->{report}{metabase}{'CPAN::Testers::Fact::LegacyReport'}{content}{textreport};
+    $textreport =~ s/\\n/\n/g; # newlines may be escaped
 
     # create a fake mail, as CTC::Article parses a mail like text block
     my $mail = <<EMAIL;