debugger

Message-ID: <20020316043850.A9223@math.ohio-state.edu>

p4raw-id: //depot/perl@15695

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 71cdb4a..ba3e2f7 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -442,7 +442,7 @@ if (defined $ENV{PERLDB_PIDS}) {
   $term_pid = -1;
 } else {
   $ENV{PERLDB_PIDS} = "$$";
-  $pids = '';
+  $pids = "{pid=$$}";
   $term_pid = $$;
 }
 $pidprompt = '';