diff options
-rwxr-xr-x | lib/perl5db.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index e14cfd30dd..6c01aa9138 100755 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -26,7 +26,7 @@ my $dev_tty = '/dev/tty'; } } -plan(3); +plan(4); sub rc { open RC, ">", ".perldb" or die $!; @@ -88,6 +88,12 @@ like($contents, qr/sub factorial/, like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table'); } +{ + local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1"; + my $output = runperl(switches => [ '-dt' ], progfile => '../lib/perl5db/t/symbol-table-bug'); + like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table when running with thread support'); +} + # clean up. END { |