Remove some effect-less code.

Discussed in RT #41461

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 09a8655..d805936 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -117,21 +117,6 @@ EOF
     like( $output, 'success' , '[perl #41461] code is run' );
 }
 
     like( $output, 'success' , '[perl #41461] code is run' );
 }
 

-{
-    rc(<<'EOF');
-&parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
-
-sub afterinit {
-    push (@DB::typeahead,
-    't 2',
-    'c',
-    'q',
-    );
-
-}
-EOF
-}
-

 package DebugWrap;
 
 sub new {
 package DebugWrap;
 
 sub new {