Convert comma-separated expressions to do{}.
authorShlomi Fish <shlomif@shlomifish.org>
Tue, 2 Oct 2012 13:48:57 +0000 (15:48 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:32 +0000 (09:18 -0500)
lib/perl5db.pl

index 7169add..51ff1f8 100644 (file)
@@ -2023,23 +2023,29 @@ the new command. This is faster, but perhaps a bit more convoluted.
 
       CMD:
         while (
+            do
+            {
+                # We have a terminal, or can get one ...
+                if (!$term) {
+                    setterm();
+                }
 
-            # We have a terminal, or can get one ...
-            ( $term || setterm() ),
-
-            # ... and it belogs to this PID or we get one for this PID ...
-            ( $term_pid == $$ or resetterm(1) ),
+                # ... and it belogs to this PID or we get one for this PID ...
+                if ($term_pid != $$) {
+                    resetterm(1);
+                }
 
-            # ... and we got a line of command input ...
-            defined(
-                $cmd = &readline(
+                # ... and we got a line of command input ...
+                defined(
+                    $cmd = DB::readline(
                         "$pidprompt $tid DB"
-                      . ( '<' x $level )
-                      . ( $#hist + 1 )
-                      . ( '>' x $level ) . " "
-                )
-            )
-          )
+                        . ( '<' x $level )
+                        . ( $#hist + 1 )
+                        . ( '>' x $level ) . " "
+                    )
+                );
+            }
+        )
         {
 
                        share($cmd);