This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Got rid of a $1 reference.
authorShlomi Fish <shlomif@shlomifish.org>
Sun, 11 Nov 2012 11:05:40 +0000 (13:05 +0200)
committerTony Cook <tony@develop-help.com>
Wed, 2 Jan 2013 00:21:57 +0000 (11:21 +1100)
lib/perl5db.pl

index a89e50c..6ef86ac 100644 (file)
@@ -5466,11 +5466,9 @@ sub cmd_l {
 
     # If the line is '$something', assume this is a scalar containing a
     # line number.
 
     # 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.
         my ($s) = DB::eval();
 
         # Ooops. Bad scalar.