From: Shlomi Fish <shlomif@shlomifish.org>
Date: Wed, 14 Nov 2012 09:43:57 +0000 (+0200)
Subject: Remove an unused parameter.
X-Git-Tag: upstream/5.20.0~4305^2~17
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=67eca6b14fc7cfcea27a8ab5463d19ee343824d9;p=platform%2Fupstream%2Fperl.git

Remove an unused parameter.
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 1147caa..37a3f95 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -5489,7 +5489,6 @@ sub _cmd_l_handle_var_name {
 }
 
 sub _cmd_l_handle_subname {
-    my $line = shift;
 
     my $s = $subname;
 
@@ -5674,7 +5673,7 @@ sub _cmd_l_main {
     }
     # l name. Try to find a sub by that name.
     elsif ( ($subname) = $spec =~ /\A([\':A-Za-z_][\':\w]*(?:\[.*\])?)/s ) {
-        return _cmd_l_handle_subname($spec);
+        return _cmd_l_handle_subname();
     }
     # Bare 'l' command.
     elsif ( $spec !~ /\S/ ) {