| Subject: | read() does not overwrite local archname |
The following program prints the architecture on which Test::Reporter is running, not the one of the report (freebsd). This information is later used and passed on to metabase and e.g. log.txt reproduces it. This came to light today because I sent my first freebsd report from a linux box. So far the only effect I saw is in log.txt.
Here is the short demo program:
use File::Temp;
use Test::Reporter;
my($ft) = File::Temp->new(TEMPLATE => "bugdemo-XXXX", SUFFIX=>".rpt");
print $ft <<EOF;
From: andreas.koenig.gmwojprw@franz.ak.mind.de
X-Test-Reporter-Distfile: DLAND/BSD-Process-0.07.tar.gz
X-Test-Reporter-Perl: v5.18.0
Subject: FAIL BSD-Process-0.07 amd64-freebsd 9.2-release
Report: This distribution has been tested as part of the CPAN Testers
project, supporting the Perl programming language. See
http://wiki.cpantesters.org/ for more information or email
questions to cpan-testers-discuss@perl.org
--
Dear David Landgren,
[...]
Summary of my perl5 (revision 5 version 18 subversion 0) configuration:
Commit id: a9acda3b5f74585852a57b51b724804ac586cb0b
Platform:
osname=freebsd, osvers=9.2-release, archname=amd64-freebsd
EOF
$ft->flush;
my $file = $ft->filename;
my $r = Test::Reporter->new(
transport => 'Metabase',
)->read($file);
warn "archname: $r->{_perl_version}{_archname}\n";