Remove a redundant line.

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 382dc4b..1147caa 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -5540,7 +5540,6 @@ sub _cmd_l_handle_subname {
         }
 
         # Call self recursively to list the range.
-        $line = $subrange;
         return _cmd_l_main( $subrange );
     } ## end if ($subrange)