From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sun, 11 Nov 2012 11:05:40 +0000 (+0200)
Subject: Got rid of a $1 reference.
X-Git-Tag: upstream/5.20.0~4305^2~28
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5f0d5f290cd741c8925786daeecf45cb1ba37e0a;p=platform%2Fupstream%2Fperl.git

Got rid of a $1 reference.
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index a89e50c..6ef86ac 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -5466,11 +5466,9 @@ sub cmd_l {
 
     # If the line is '$something', assume this is a scalar containing a
     # line number.
-    if ( $line =~ /^(\$.*)/s ) {
+    # Set up for DB::eval() - evaluate in *user* context.
+    if ( ($evalarg) = $line =~ /\A(\$.*)/s ) {
 
-        # Set up for DB::eval() - evaluate in *user* context.
-        $evalarg = $1;
-        # $evalarg = $2;
         my ($s) = DB::eval();
 
         # Ooops. Bad scalar.