--- perl-5.10.1/lib/perl5db.pl
+++ ~/lib/perl5db.pl
@@ -1957,9 +1957,14 @@
         for ( my $n = 0 ; $n <= $#to_watch ; $n++ ) {
             $evalarg = $to_watch[$n];
+            my $val;
+            if( ref $evalarg ) {
+                $val = $$evalarg;
+            } else {
             local $onetimeDump;    # Tell DB::eval() to not output results
 
             # Fix context DB::eval() wants to return an array, but
             # we need a scalar here.
-            my ($val) = join( "', '", &eval );
+            ($val) = join( "', '", &eval );
+            }
             $val = ( ( defined $val ) ? "'$val'" : 'undef' );
 
@@ -5289,5 +5294,12 @@
 
         # ... save it.
-        push @to_watch, $expr;
+        my $val;
+        if( $expr =~ /^\$\w+$/ ) {
+            $evalarg = "\\$expr";
+            ( $val ) = &eval;
+            push @to_watch, $val;
+            $val = $$val;
+        } else {
+            push @to_watch, $expr;
 
         # Parameterize DB::eval and call it to get the expression's value
@@ -5295,5 +5307,6 @@
         # return a list value.
         $evalarg = $expr;
-        my ($val) = join( ' ', &eval );
+        ($val) = join( ' ', &eval );
+        }
         $val = ( defined $val ) ? "'$val'" : 'undef';