serial logs capture: chomp parameters to the perl script

For reasons that aren't clear, perl's glob operator ignores the \n.
We can gloss over that for now, but let's chomp it in case they fix
that.

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/Osstest/Serial/sympathy.pm b/Osstest/Serial/sympathy.pm
index 0d09576f471ecc0541d20bb506d1c327b603fa9c..84a1e09d9f3314e09ef7fe2eb1c6f154de805b9e 100644 (file)
--- a/Osstest/Serial/sympathy.pm
+++ b/Osstest/Serial/sympathy.pm
@@ -106,8 +106,8 @@ sub fetch_logs {
         use strict qw(refs vars);
         use IO::File;
         $|=1;
-        my $started= <DATA>;  defined $started or die $!;
-        my $logpat= <DATA>;   defined $logpat or die $!;
+        my $started= <DATA>;  chomp $started or die $!;
+        my $logpat= <DATA>;   chomp $logpat or die $!;
 
         my %done;
         for (;;) {