X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-existing.t;h=ecc673ef7738745f6d94bff143f8d2410f4f9ac2;hb=d13eb03da10981aca9ff101bd8d95727c1de4b5e;hp=0339bc850b391436f5fe1d7beb6bf97071f58562;hpb=5ae3324ff295015e051249ded13b2353ee8af258;p=perl%2Fmodules%2FSub-Op.git

diff --git a/t/11-existing.t b/t/11-existing.t
index 0339bc8..ecc673e 100644
--- a/t/11-existing.t
+++ b/t/11-existing.t
@@ -18,6 +18,9 @@ our $called;
 {
  local $/ = "####\n";
  while (<DATA>) {
+  chomp;
+  s/\s*$//;
+
   my ($code, $params)           = split /----\s*/, $_;
   my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;