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.jack...@eu.citrix.com>
---
Osstest/Serial/sympathy.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/Osstest/Serial/sympathy.pm b/Osstest/Serial/sympathy.pm
index 0d09576..84a1e09 100644
--- 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 (;;) {
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
Xen-devel@lists.xen.org
https://lists.xen.org/xen-devel
