home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / MacPerl / lib / pdbptch < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.2 KB  |  60 lines  |  [TEXT/MPS ]
  1. ***************
  2. *** 56,63 ****
  3.   # 
  4.   #
  5.   
  6. ! open(IN, "</dev/tty") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  7. ! open(OUT,">/dev/tty") || open(OUT, ">&STDOUT");    # so we don't dongle stdout
  8.   select(OUT);
  9.   $| = 1;                # for DB'OUT
  10.   select(STDOUT);
  11. --- 60,76 ----
  12.   # 
  13.   #
  14.   
  15. ! if (-e "/dev/tty") {
  16. !     $console = "/dev/tty";
  17. !     $rcfile=".perldb";
  18. ! }
  19. ! else {
  20. !     $console = "con";
  21. !     $rcfile="perldb.ini";
  22. ! }
  23. ! 
  24. ! open(IN, "<$console") || open(IN,  "<&STDIN");    # so we don't dingle stdin
  25. ! open(OUT,">$console") || open(OUT, ">&STDOUT");    # so we don't dongle stdout
  26.   select(OUT);
  27.   $| = 1;                # for DB'OUT
  28.   select(STDOUT);
  29. ***************
  30. *** 565,578 ****
  31.       s/(.*)/'$1'/ unless /^-?[\d.]+$/;
  32.   }
  33.   
  34. ! if (-f '.perldb') {
  35. !     do './.perldb';
  36.   }
  37. ! elsif (-f "$ENV{'LOGDIR'}/.perldb") {
  38. !     do "$ENV{'LOGDIR'}/.perldb";
  39.   }
  40. ! elsif (-f "$ENV{'HOME'}/.perldb") {
  41. !     do "$ENV{'HOME'}/.perldb";
  42.   }
  43.   
  44.   1;
  45. --- 579,592 ----
  46.       s/(.*)/'$1'/ unless /^-?[\d.]+$/;
  47.   }
  48.   
  49. ! if (-f $rcfile) {
  50. !     do "./$rcfile";
  51.   }
  52. ! elsif (-f "$ENV{'LOGDIR'}/$rcfile") {
  53. !     do "$ENV{'LOGDIR'}/$rcfile";
  54.   }
  55. ! elsif (-f "$ENV{'HOME'}/$rcfile") {
  56. !     do "$ENV{'HOME'}/$rcfile";
  57.   }
  58.   
  59.   1;
  60.