In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/f1cba94566d20fce5f608ead96b2febbbf4e1cda?hp=8235b1c2e77c454865e73bc098b667c3d9aa58a7>
- Log -----------------------------------------------------------------
commit f1cba94566d20fce5f608ead96b2febbbf4e1cda
Author: James E Keenan <jkee...@cpan.org>
Date: Wed Jan 4 18:17:19 2017 +0000
RT#113960: perl5db should ignore /dev/tty on non-Unix systems
If a Win32 system happens to have a \dev\tty file at the root of the current
drive, we were incorrectly treating that as an indicator that the system is
in fact Unix-like.
Fix this by looking at the filesystem for that file only after considering
all the OS platforms that we know aren't Unix-like in that way.
-----------------------------------------------------------------------
Summary of changes:
lib/perl5db.pl | 19 +++++++++++--------
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 4668a1fc05..265b4441f3 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1533,14 +1533,6 @@ We then determine what the console should be on various
systems:
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 @@ We then determine what the console should be on various
systems:
$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 {
--
Perl5 Master Repository
