home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / perl / perldb.dif < prev    next >
Text File  |  1991-03-20  |  1KB  |  53 lines
  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;
  53.