This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Defaulting to VMS is probably not right.
[perl5.git] / lib / perl5db.pl
index 67ad3d1..aa06a75 100644 (file)
@@ -1560,10 +1560,15 @@ We then determine what the console should be on various systems:
 
 =cut
 
-    else {
+    elsif ($^O eq 'VMS') {
+        $console = 'sys$command';
+    }
+
+# Keep this last.
 
-        # everything else is ...
-        $console = "sys\$command";
+    else {
+        _db_warn("Can't figure out your console, using stdin");
+        undef $console;
     }
 
 =pod