1berry/MariaDB-server
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

WL4189 Active state perl fixes

Browse Source
This commit is contained in:
Magnus Svensson 2008-10-08 20:25:28 +02:00
parent 87b91e547d
commit e75daedf17
3 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mysql-test/lib/My/Platform.pm
View File

@ -65,9 +65,11 @@ BEGIN {
# #
use Memoize; use Memoize;
memoize('mixed_path'); if (!IS_WIN32PERL){
memoize('native_path'); memoize('mixed_path');
memoize('posix_path'); memoize('native_path');
memoize('posix_path');
}
sub mixed_path { sub mixed_path {
my ($path)= @_; my ($path)= @_;

8
mysql-test/lib/My/SafeProcess.pm
View File

@ -212,6 +212,14 @@ sub timer {
}; };
$0= "safe_timer($duration)"; $0= "safe_timer($duration)";
if (IS_WIN32PERL){
# Just a thread in same process
sleep($duration);
print STDERR "timer $$: expired after $duration seconds\n";
exit(0);
}
my $count_down= $duration; my $count_down= $duration;
while($count_down--){ while($count_down--){

2
mysql-test/lib/My/SysInfo.pm
View File

@ -76,7 +76,7 @@ sub _kstat {
my ($self)= @_; my ($self)= @_;
while (1){ while (1){
my $instance_num= $self->{cpus} ? @{$self->{cpus}} : 0; my $instance_num= $self->{cpus} ? @{$self->{cpus}} : 0;
my $list= `kstat -p -m cpu_info -i $instance_num`; my $list= `kstat -p -m cpu_info -i $instance_num 2> /dev/null`;
my @lines= split('\n', $list) or last; # Break loop my @lines= split('\n', $list) or last; # Break loop
my $cpuinfo= {}; my $cpuinfo= {};