blob: a1716821e383a8ede5064b8ba6191773f225a762 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
*** lib/perldb.pl Tue Oct 23 23:14:20 1990
--- os2/perldb.pl Tue Nov 06 21:13:42 1990
***************
*** 36,43 ****
#
#
! open(IN, "</dev/tty") || open(IN, "<&STDIN"); # so we don't dingle stdin
! open(OUT,">/dev/tty") || open(OUT, ">&STDOUT"); # so we don't dongle stdout
select(OUT);
$| = 1; # for DB'OUT
select(STDOUT);
--- 36,43 ----
#
#
! open(IN, "<con") || open(IN, "<&STDIN"); # so we don't dingle stdin
! open(OUT,">con") || open(OUT, ">&STDOUT"); # so we don't dongle stdout
select(OUT);
$| = 1; # for DB'OUT
select(STDOUT);
***************
*** 517,530 ****
s/(.*)/'$1'/ unless /^-?[\d.]+$/;
}
! if (-f '.perldb') {
! do './.perldb';
}
! elsif (-f "$ENV{'LOGDIR'}/.perldb") {
! do "$ENV{'LOGDIR'}/.perldb";
}
! elsif (-f "$ENV{'HOME'}/.perldb") {
! do "$ENV{'HOME'}/.perldb";
}
1;
--- 517,530 ----
s/(.*)/'$1'/ unless /^-?[\d.]+$/;
}
! if (-f 'perldb.ini') {
! do './perldb.ini';
}
! elsif (-f "$ENV{'INIT'}/perldb.ini") {
! do "$ENV{'INIT'}/perldb.ini";
}
! elsif (-f "$ENV{'HOME'}/perldb.ini") {
! do "$ENV{'HOME'}/perldb.ini";
}
1;
|
