This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove a redundant line.
authorShlomi Fish <shlomif@shlomifish.org>
Wed, 14 Nov 2012 09:34:13 +0000 (11:34 +0200)
committerTony Cook <tony@develop-help.com>
Wed, 2 Jan 2013 00:22:01 +0000 (11:22 +1100)
lib/perl5db.pl

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