Defaulting to VMS is probably not right.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 2 Mar 2016 23:49:18 +0000 (18:49 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 3 Mar 2016 00:44:06 +0000 (19:44 -0500)
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