Remove trailing CRLFs before testing what we received

[perl/modules/rgit.git] / t / 21-once.t

diff --git a/t/21-once.t b/t/21-once.t
index 5333be0748f5ac86b2c19dc4022a70fbfe7646bb..e61e81c73c98664af4df343b9ab129a3822efa3f 100644 (file)
--- a/t/21-once.t
+++ b/t/21-once.t
@@ -32,6 +32,7 @@ for my $cmd (qw/daemon gui help init version/) {
  is(@lines, 1, "once $cmd visited only one repo");
  my $r = [ split /\|/, defined $lines[0] ? $lines[0] : '' ];
  my $e = [ $cmd, qw/@n @g @w @b @@/ ];
+ s/[\r\n]*$// for @$r;
  is($r->[$_], $e->[$_], "once $cmd argument $_ is ok")
   for 0 .. 5;
 }