os2/perldb.dif

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