unset PERLDB_OPTS environment variable or rt-61222 might hang.

eg. PERLDB_OPTS='RemotePort=some.other.host:9000'

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 88e30d9..c7633fc 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -161,6 +161,7 @@ SKIP: {
 
 # Test [perl #61222]
 {
+    local $ENV{PERLDB_OPTS};
     rc(
         <<'EOF',
         &parse_options("NonStop=0 TTY=db.out LineInfo=db.out");