This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove some effect-less code.
authorShlomi Fish <shlomif@shlomifish.org>
Sat, 10 Aug 2013 07:24:00 +0000 (10:24 +0300)
committerJames E Keenan <jkeenan@cpan.org>
Sat, 10 Aug 2013 16:32:22 +0000 (18:32 +0200)
Discussed in RT #41461

lib/perl5db.t

index 09a8655..d805936 100644 (file)
@@ -117,21 +117,6 @@ EOF
     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 {