This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Got rid of a $1 reference.
[perl5.git] / 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 ( $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.