From 12a58d7e03754bdd2d4f57a55b8d68d6a0b677e9 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Wed, 12 Sep 2012 17:06:27 +0300
Subject: [PATCH] Remove some no-longer used code.

---
 lib/perl5db.t | 18 ------------------
 1 file changed, 18 deletions(-)

diff --git a/lib/perl5db.t b/lib/perl5db.t
index f12898f..9e2171d 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -65,24 +65,6 @@ sub _out_contents
     return _slurp($out_fn);
 }
 
-{
-    rc(
-        <<"EOF",
-    &parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
-
-    sub afterinit {
-        push(\@DB::typeahead,
-            'b 23',
-            'c',
-            '\$new_var = "Foo"',
-            'x "new_var = <\$new_var>\\n";',
-            'q',
-        );
-    }
-EOF
-    );
-}
-
 # Test [perl #61222]
 {
     local $ENV{PERLDB_OPTS};
-- 
2.7.4