diff options
| author | Andrew Fresh <afresh1@cvs.openbsd.org> | 2019-12-30 02:15:19 +0000 |
|---|---|---|
| committer | Andrew Fresh <afresh1@cvs.openbsd.org> | 2019-12-30 02:15:19 +0000 |
| commit | 59af520898ff999729e15a7365bd30bff390f177 (patch) | |
| tree | 081b66ab2e777f6d0e929ad91cd80b61fd8d5ce3 /gnu/usr.bin/perl/t/re/speed.t | |
| parent | 872e2e229e80c947466f1d4838dc89e6b89140bc (diff) | |
Apply local patches, remove excess files - perl-5.30.1
Timing is good deraadt@, OK sthen@
Diffstat (limited to 'gnu/usr.bin/perl/t/re/speed.t')
| -rw-r--r-- | gnu/usr.bin/perl/t/re/speed.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/t/re/speed.t b/gnu/usr.bin/perl/t/re/speed.t index 9a57de167f8..af0e4330a01 100644 --- a/gnu/usr.bin/perl/t/re/speed.t +++ b/gnu/usr.bin/perl/t/re/speed.t @@ -42,7 +42,7 @@ run_tests() unless caller; sub run_tests { - watchdog(($::running_as_thread && $::running_as_thread) ? 150 : 225); + watchdog(($::running_as_thread && $::running_as_thread) ? 150 : 540); { # [perl #120446] @@ -153,7 +153,7 @@ PROG my $substr= substr( $str, 1 ); 1 while $substr=~m/0/g; $elapsed += time; - ok( $elapsed <= 1, "should not COW on long string with substr and m//g"); + ok( $elapsed <= 2, "should not COW on long string with substr and m//g"); } # [perl #133185] Infinite loop |