Re: [Net::FTPServer] Failed test 16 in t/240abort.t at line 120

[Richard W.M. Jones]

This patch should fix it - shortly to be added to CVS.

Rich.

diff -u -r1.1 240abort.t
--- t/240abort.t        28 Sep 2003 11:50:45 -0000      1.1
+++ t/240abort.t        1 Dec 2004 12:59:24 -0000
@@ -114,6 +114,8 @@
     # Check the error from the RETR command.
     $_ = <INFD1>;
     ok (/^426/);
+    # (Previous command may have sent continuation lines, so lose those first)
+    $_ = <INFD1> while m/^\d\d\d-/;
 
     # And check the return from the ABOR command.
     $_ = <INFD1>;



-- 
Richard Jones.  http://www.annexia.org/  http://www.j-london.com/
>>>   http://www.team-notepad.com/ - collaboration tools for teams   <<<
Merjis Ltd. http://www.merjis.com/ - improving website return on investment
http://youunlimited.co.uk/ - Personal improvement courses

signature.asc
Description: Digital signature