From 87af3d5db6e35b03a547a62fbb95119f246cce91 Mon Sep 17 00:00:00 2001
From: Shlomi Fish <shlomif@shlomifish.org>
Date: Sun, 30 Sep 2012 01:14:56 +0200
Subject: [PATCH] Add more.

---
 lib/perl5db.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 8587dd2..7983bdf 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -5235,10 +5235,10 @@ sub cmd_L {
     } ## end if (%break_on_load and...
     if ($watch_wanted) {
         if ( $trace & 2 ) {
-            print $OUT "Watch-expressions:\n" if @to_watch;
-            for my $expr (@to_watch) {
-                print $OUT " $expr\n";
-                last if $signal;
+            print {$OUT} "Watch-expressions:\n" if @to_watch;
+            TO_WATCH: for my $expr (@to_watch) {
+                print {$OUT} " $expr\n";
+                last TO_WATCH if $signal;
             }
         } ## end if ($trace & 2)
     } ## end if ($watch_wanted)
-- 
2.7.4