[iperl commit] r150 - trunk/t

[codesite...@google.com]

Author: a.r.fe...@gmail.com
Date: Sun Mar 9 08:43:08 2008
New Revision: 150

Modified:
trunk/t/20expect_quit.t

Log:
cope with noisy 5.6 blib

Modified: trunk/t/20expect_quit.t
==============================================================================
--- trunk/t/20expect_quit.t (original)
+++ trunk/t/20expect_quit.t Sun Mar 9 08:43:08 2008
@@ -16,6 +16,12 @@
quit => $quit_command,
);

- expect_like(qr/^Welcome/, "welcome message");
+ expect_like(
+ qr/\A
+ (?: Using .*? blib $ )? # cope with noisy 5.6 blib
+ Welcome
+ /msx,
+ "welcome message"
+ );

}