X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-base.t;h=62659d4f7a686fef078f9432e1a4e58d0ff7bfb3;hb=c38db653bec41568fc1caab3c19763e7ed2e5a2b;hp=c1760c104e47e477750cb8b9db294868715a2435;hpb=14a44e7b2f834cbd0d2ba8cc63deda55b3e5f0dd;p=perl%2Fmodules%2FSub-Op.git

diff --git a/t/10-base.t b/t/10-base.t
index c1760c1..62659d4 100644
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -12,6 +12,9 @@ our $called;
 {
  local $/ = "####\n";
  while (<DATA>) {
+  chomp;
+  s/\s*$//;
+
   my ($code, $params)           = split /----\s*/, $_;
   my ($names, $ret, $exp, $seq) = split /\s*#\s*/, $params;