diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 4668a1fc05eb..265b4441f390 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1533,14 +1533,6 @@ sub _autoflush {
         undef $console;
     }
 
-=item * Unix - use F</dev/tty>.
-
-=cut
-
-    elsif ( -e "/dev/tty" ) {
-        $console = "/dev/tty";
-    }
-
 =item * Windows or MSDOS - use C<con>.
 
 =cut
@@ -1565,6 +1557,17 @@ sub _autoflush {
         $console = 'sys$command';
     }
 
+# Keep this penultimate, on the grounds that it satisfies a wide variety of
+# Unix-like systems that would otherwise need to be identified individually.
+
+=item * Unix - use F</dev/tty>.
+
+=cut
+
+    elsif ( -e "/dev/tty" ) {
+        $console = "/dev/tty";
+    }
+
 # Keep this last.
 
     else {