Signed-off-by: Ian Jackson <ian.jack...@eu.citrix.com>
---
 Osstest/HistoryReport.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Osstest/HistoryReport.pm b/Osstest/HistoryReport.pm
index b593f207..6a23cfba 100644
--- a/Osstest/HistoryReport.pm
+++ b/Osstest/HistoryReport.pm
@@ -128,6 +128,7 @@ sub cache_read_previous ($) {
     for (;;) {
         $_ = <H> // last;
         next unless m{^\<\!-- osstest-report-reuseable (.*)--\>$};
+       my $orig = $_;
        my $jr = {};
        my $ch = $jr;
        foreach (split / /, $1) {
@@ -136,7 +137,7 @@ sub cache_read_previous ($) {
                $jr->{'%'.$&} = $ch;
                next;
            }
-           s{^(\w+)=}{} or die;
+           s{^(\w+)=}{} or die "$orig -- $_ ";
            my $k = $1;
            s{\%([0-9a-f]{2})}{ chr hex $1 }ge;
            $ch->{$k} = $_;
-- 
2.11.0


Reply via email to