This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove a redundant line.
[perl5.git] / lib / perl5db.pl
index 382dc4b..1147caa 100644 (file)
@@ -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)