diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-22 12:00:28 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-06-22 12:00:28 +0200 |
commit | 9b76ae71c6fcdda7d153f2deb2f79e654d7d097b (patch) | |
tree | 44f56b14cdf705a26a152ca4c694893240f73eed /lib/perl5db.t | |
parent | ad6656ab324af5697588484c4746401e1770fa57 (diff) | |
download | perl-9b76ae71c6fcdda7d153f2deb2f79e654d7d097b.tar.gz |
Fix skipping tests with threads in last commit
Diffstat (limited to 'lib/perl5db.t')
-rw-r--r-- | lib/perl5db.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl5db.t b/lib/perl5db.t index d5747cffc7..22781d4531 100644 --- a/lib/perl5db.t +++ b/lib/perl5db.t @@ -89,7 +89,7 @@ like($contents, qr/sub factorial/, like($output, qr/Undefined symbols 0/, 'there are no undefined values in the symbol table'); } -{ +SKIP: { if ( $Config{usethreads} ) { skip('This perl has threads, skipping non-threaded debugger tests'); } else { @@ -99,7 +99,7 @@ like($contents, qr/sub factorial/, } } -{ +SKIP: { if ( $Config{usethreads} ) { local $ENV{PERLDB_OPTS} = "ReadLine=0 NonStop=1"; my $output = runperl(switches => [ '-dt' ], progfile => '../lib/perl5db/t/symbol-table-bug'); |