diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-11-09 13:38:50 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-11-09 13:38:50 +0000 |
| commit | 34de22dd6ede167a09e3a3ee571665ba2c647f94 (patch) | |
| tree | b23f3936caa4bcd96a5213e5fca656b7c4465195 /os2 | |
| parent | 57ebbfd03f7f6ea2523a79a595ecc80ef8e2ab9b (diff) | |
| download | perl-34de22dd6ede167a09e3a3ee571665ba2c647f94.tar.gz | |
perl 3.0 patch #40 patch #38, continued
See patch #38.
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/perldb.dif | 52 | ||||
| -rw-r--r-- | os2/perlglob.cs | 4 | ||||
| -rw-r--r-- | os2/perlglob.def | 1 |
3 files changed, 54 insertions, 3 deletions
diff --git a/os2/perldb.dif b/os2/perldb.dif new file mode 100644 index 0000000000..a1716821e3 --- /dev/null +++ b/os2/perldb.dif @@ -0,0 +1,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; diff --git a/os2/perlglob.cs b/os2/perlglob.cs index ca3967e847..5f6758acfa 100644 --- a/os2/perlglob.cs +++ b/os2/perlglob.cs @@ -1,7 +1,7 @@ -glob.c +msdos\glob.c setargv.obj -perlglob.def +os2\perlglob.def perlglob.exe -AS -LB -S0x1000 diff --git a/os2/perlglob.def b/os2/perlglob.def index cfa07392ff..52bddd1b00 100644 --- a/os2/perlglob.def +++ b/os2/perlglob.def @@ -1,3 +1,2 @@ NAME PERLGLOB WINDOWCOMPAT NEWFILES DESCRIPTION 'Filename globbing for PERL - for MS-DOS and OS/2' -STUB 'REALGLOB.EXE' |